Sub farbe_erkennen()
' Erkennt eine bestimmte Hintergrundfarbe (blau) und ändert
' die Textfarbe der gefundenen Zeilen in weiß
' postmaster@klaus-dieter-2000.de
z = LetzteZelle = Range("A1").End(xlDown).Row ' Letzte gefüllte Zelle ermitteln
For r = 1 To z ' Beginn Schleife
If Cells(r, 1).Interior.ColorIndex = 41 Then ' Bedingung wenn Hintergrund blau...
Rows(r).Select ' ... selektieren der Zeile
Selection.Font.ColorIndex = 2 ' ... Textfarbe ändern in weiß
End If ' Ende der Schleife
Next r ' Schleifenzähler
End Sub