Wert Hintergrundfarbe ermitteln & Hintergrundfarben zählen

Function HFanzahl(Farbe, Bereich)
Anzahl = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Anzahl = Anzahl + 1
End If
Next
HFanzahl = Anzahl
End Function
Function HFwert(r As Range) As Integer
HFwert = r.Interior.ColorIndex
End Function

Ermittlung zu zählende Hintergrundfarbe Formel in Zelle W3:

=HFwert(W3)

Hintergrundfarbe aus Zelle W3 in bestimmtem Bereich zählen:

=HFanzahl(W3;$A$1:$U$98)