Schriftfarbe = Hintergrundfarbe (RGB)
09.07.2016 15:47:59
Holger
ich würde gerne, dass die Schriftfarbe = Hintergrundfarbe ist.
Mit folgendem Code funktioniert das bereits, allerdings nur für die 56 Excel-Farben.
Wie muss der Code angepasst werden, damit ich die genaue Farbe bekomme,
also RGB?
Vielen Dank für jegliche Unterstützung.
Sub Farbe()
Dim c As Range
For Each c In Range("a1:ca214")
If c.Interior.ColorIndex = xlNone Then
c.Font.ColorIndex = 2
Else
c.Font.ColorIndex = c.Interior.ColorIndex
End If
Next
End Sub
Holger
Anzeige