mit der nachfolgenden Funktion ermittle ich die Summe der Werte welche eine bestimmte Hintergrundfarbe haben. Ich würde nun aber gerne nicht aufgrund der Hintergrundfarbe sondern der Schriftfarbe die Summenbildung vornehmen.
Weiß jemand ob es statt der Funktion "sumcol" für die Hintergrundfarbe eine Funktion für die Schriftfarbe gibt.
VG Hans
Function SumCol(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
SumCol = Zelle.Value + SumCol
End If
Next Zelle
End Function