Hallo, in einer Urlaubsliste habe ich Zellen in zwei verschiedenen Farben und die weißen Zellen. Ich möchte nun einen Bereich mit Range auswählen, z. B. B2:R12. Nun sollen alle Zellen die nicht blau oder gelb sind rot eingefärbt werden. Habe dies mit folgendem Code versucht:
Range("b2:r12").Select
Dim C As Range
For Each C In Selection
With C.Interior
If .ColorIndex 36 Or .ColorIndex 37 Then
.ColorIndex = 3
End If
End With
Next C
Es werden aber auch die blauen und gelben Zellen rot gefärbt. Wo liegt der Fehler?
Gruß Hartmut