Office: (Office 2013) Zellen mit Schriftfarben zusammenzählen

Hi,

Also ich beschäftige mich tatsächlich erst seit gestern mit Excel und brauch mal Hilfe.

Ich habs jetzt per Makro geschafft dass ich sämtliche farbliche Zahlen getrennt addieren lassen kann.

Jetzt habe ich aber noch Zeilen nur mit Text (Keine Zahlen) in verschiedenen Farb-Formatierungen.
Jetzt möchte ich gerne jede Zelle der entsprechenden Schriftfarbe zusammenzählen. Also so dass quasi jede Zelle beim addieren den Wert 1 hat.
Die Zellen selbst haben keine Formatierung. Nur die Schriften haben verschiedene Farben.

Fürs bunte zahlen addieren hab ich folgende Codes verwendet:


Formeln der Tabelle
Zelle Formel
B76 =SUMMEFARBIGEZAHL(F42;A4:A38;H4:H38)
D76 =SUMMEFARBIGEZAHL(D67;B67:B74;D67:D74;F67:F74)
F76 =SUMMEFARBIGEZAHL(F70;B67:B74;D67:D74;F67:F74)

Makro

Function SUMMEFARBIGEZAHL(Farbe As Range, ParamArray rngArea()) As Double
Dim rngCell As Range
Dim varArea As Variant
Dim intColor As Integer
Application.Volatile
intColor = Farbe(1).Font.ColorIndex
For Each varArea In rngArea
For Each rngCell In varArea
If rngCell.Font.ColorIndex = intColor Then
SUMMEFARBIGEZAHL = SUMMEFARBIGEZAHL + rngCell
End If
Next
Next
End Function



kann ich die befehle entsprechend ändern?
Danke im vorraus :)