ich möchte in Excel 2003 in der Zelle A1 alle Zellen die in Farbe sind zählen.
Vielen Dank für eure Hilfe.
LiebenGruß Fidi
Public Function GH_CountBColor(ZaehlBereich As Range)
Dim Zellchen As Range
Dim Anzahl As Long
Anzahl = 0
For Each Zellchen In ZaehlBereich.Cells
Debug.Print Zellchen.Address & " / " & Zellchen.Interior.Color & " / " & Zellchen.Interior. _
ColorIndex
If Zellchen.Interior.ColorIndex xlNone Then
Anzahl = Anzahl + 1
End If
Next Zellchen
GH_CountBColor = Anzahl
End Function
In die Zelle A1