Zählen von Zellen mit einer bestimmten Farbe
23.09.2020 14:52:06
Zellen
ich möchte in einer Tabelle Zellen mit einer bestimmten Farbe zählen. Dazu habe ich die Funktion CountCcolor eingebunden. Das funktioniert hervorragend. Nun möchte ich die Funktion aber so erweitern, dass nur sichtbare Zellen gezählt werden. Habt Ihr da eine Idee für mich?
Function CountCcolor(range_data As range, criteria As range) As Long
Dim datax As range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function
Anzeige