In einem Bereich die Zellen zählen die z. B grüne Hintergrundfarbe hat und gleichzeitig eine 1 enthält.

Es geht leider nicht mit einer Formel da dort nur Zahlen und Werte ausgelesen werden können aber keine Eigenschaften wie z..B. Farbe

Habe folgender Code bereits im Internet gefunden - dort fehlt leider noch die Abfrage mit der 1 Hoffe ihr könnt mir helfen.

Beispieldatei:
https://www.herber.de/bbs/user/172046.xlsm

Grüße Mafamate und ich hoffe ihr macht mich glücklich

Function Count_Color(Range As Range, color As Range)
Dim COLORC As Integer
Dim COUNTT As Integer

COLORC = color.Interior.ColorIndex
Set IC = Range
For Each IC In Range
If IC.Interior.ColorIndex = COLORC Then
COUNTT = COUNTT + 1
End If
Next IC
Count_Color = COUNTT

End Function