Kopier celler hvor tekst har en bestemt farve

Hej!
Det kan være jeg ikke forstår dit spørgsmål helt, men måske kan du udspecificere lidt mere hvad du vil.

Tror næppe det er dette du spørger om, men alm. kopiering (inkl. cellefarve) kender du jo sikkert:

Du markerer bare cellerne du ønsker at kopiere. Så kan du højreklikke på musen og klikker kopier. Derefter markerer du stedet hvor de skal sættes ind - højreklikker på musen, og vælger sæt ind.

Det skal være i vba. Cellerne som indeholder farvet tekst står ikke altid samme sted, men altid i kolonne B...

Oki - VBA har jeg ikke brugt i et stykke tid, men held og lykke med det... (Beklager)

Prøv og speciefier lidt nærmere, hvad det er for et problem du har.

Hvis farverne ikke er lavet med betinget format så:

Sub FarveTest()
For t = 1 To Cells(65536, 2).End(xlUp).Row
If Cells(t, 2).Font.ColorIndex = 3 Then Cells(t, 1) = Cells(t, 2)
Next
End Sub

Kolonne B indeholder en overskrift (kategori) på nogle varer, Kolonnen indeholder samtidig varebeskrivelsen.
Længere nede i kolonnen kommer der så en ny kategori efterfulgt af varebeskrivelse, osv.
Jeg vil gerne trække de enkelte kategorier over i hver deres fane, fordi de skal formateres forskelligt.
Farven på overskrift er altid den samme, og min tanke er så at indsætte en ny blank kolonne A hvor hver celle indeholder overskriften, indtil den møder en ny overskrift. På den måde kan jeg få flyttet varerne over i hver deres fane.
Kan ikke umiddelbart se andre muligheder, andet end at kigge på navnet på overskriften, men det er lidt usikkert. Farven er bedre.

Jeg kigger på det imorgen excelent! på forhånd tak! sengetid :)

Så jeg stået op...

Sub FarveTest()
For t = 1 To Cells(65536, 2).End(xlUp).Row
If Cells(t, 2).Font.ColorIndex = -3368602 Then Cells(t, 1) = Cells(t, 2)
Next
End Sub

Kan ikke få det til at virke. Farven på fonten ser lidt speciel ud. Fandt den ved at køre en makro med find formatering på cellen...

Er farven indsat med Betinget format ?

Ja er den... Ved ik hvilken farve det er ellers??

som sagt, så virker den ikke med Betinget format

du kan evt. sende filen eller et eks.

ok hvad er din email?

den finder du under min profil

velbekom