Hallo, ich brauche eure Hilfe. Ich brauche eine Function , die mir die Anzahl der farbigen Zellen in einer Reihe errechnet.
Die beigefügte Function zählt leider nur die roten Zellen, ich möchte aber ALLE farbigen Zellen berechnet haben
Public Function HFarbeZählen(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
HFarbeZählen = HFarbeZählen + 1
End If
Next Zelle
End Function
Hat da einer Idee wie ich das bewerkstelligen kann? LG Silke
|