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 A1Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen