zellen zählen

Dim Zelle As Range
Dim i As Integer
i = 0

For Each Zelle In Range("B21:P21")
If Zelle.Interior.ColorIndex = 2 Then
i = i + 1
End If
Next Zelle

MsgBox (i)

ich habe 15 zellen und die wochenenden werden über die bedingte formatierung grau. jetzt sagt aber meine prozedur dass alle 15 felder weiss sind obwohl nur 11 weiss sind.

liegt das an der bedingten formatierung oder ist meine prozedur falsch

danke klaus