Anzahl Farbige Werte

Function SumFarbe(Rng As Range, intColor As Integer) As Double
Dim rngAktuell As Range, _
dblAddition As Double
Application.Volatile
For Each rngAktuell In Rng.Cells
If IsNumeric(rngAktuell) Then
If rngAktuell.Font.ColorIndex = intColor Then
dblAddition = dblAddition + rngAktuell.Value
End If
End If
Next rngAktuell
SumFarbe = dblAddition
End Function

ich möchte aber nun nicht die Summe sondern die Anzahl der Wete haben, wie ist die Funktion anzupassen?
Micha