Hallo,
habe einen VBA-Code, wo die farbig markierten Zellen gezählt werden. Funktioniert auch so weit. Wie bekomme ich es aber hin, das die Zellen ohne Farbfüllung den Wert 0 ausgeben.
Beispiel: Zeile A1 bis A5 sind rot hinterlegt: Ausgabe somit 5
Zeile B1 bis B5 "keine Farbe" Ausgabe ist dann trotzdem 5, soll aber null sein !!!
Wer kann mir helfen. Hier ist der jetzige Code:
Sub Farbe()
Dim Farbe As Integer, x As Integer, i As Integer
Dim c As Range
For x = 1 To 4
i = 0
Farbe = Cells(x, 1).Interior.ColorIndex
For Each c In Range(Cells(x, 1), Cells(x, 20))
If c.Interior.ColorIndex = Farbe Then
i = i + 1
End If
Next c
Cells(x, 15) = i
Next x
End Sub |