ich habe über folgenden Code
Function CountFont(Bereich As Range, iIndex As Integer) As Long
Application.Volatile
For Each Bereich In Bereich
If Bereich.Font.ColorIndex = 4 Then
CountFont = CountFont + 1
End If
Next Bereich
End Function
und Formel
=(CountFont(A1:A215;4))
die Anzahl der Einträge ermittel die Grün sind.Leider funktioniert dies nicht mit verbundenen Zellen.
Kann mir jemand helfen?
Vielen Dank schon mal.
Gruß
Frank