ColorIndex auslesen
12.05.2003 11:25:15
Frederik Fuhrmann
Ich möchte, falls eine Zelle gelb eingefärbt ist in der Spalte nebendran ein "x" setzen. Mein Versuch sah so aus - geht aber nicht!
For Each c In Range("B:B") End Sub
Sub bearbeitungskennzeichen()
Dim c As Range
If c.Font.ColorIndex = 36 Then
c.Offset(0, 1) = "x"
End If
Next
Was ist falsch?
Gruß
F.