Ich möchte per Makro Zellen in einem Bereich einfärben, wenn diese die gleiche Farbe haben wie in einer vorgegeben Zelle.
Habs so probiert:
Sub test()
Dim c As Range
For Each c In Sheets("Abonnemente").Range("Q16:R500").Cells
If c.Interior.Color = Sheets("Abonnemente").Range("A1").Interior.Color Then
If IsDate(c.Value) Then
Range(c).Interior.Color = Sheets("Abonnemente").Range("I3")
End If
End If
Next
End Sub
Aber es passiert nichts.Kann mir jemand sagen wo der Fehler ist?
LG Sascha