Startseite

Zellen an der Hintergrundfarbe erkennen

Dieses Makro erkennt eine bestimmte Hintergrundfarbe (blau) und ändert dort die Textfarbe von schwarz auf weiß. Damit ist die Schrift besser erkennbar, weil der Kontrast größer ist. Durch Austausch der Fabnummern kann das auf andere Anforderungen angepaßt werden.
Die Bilder zeigen den Unterschied. Hier das Makro:
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