Farbsumme
Reinhardt
Wer kann mir weiterhelfen:
3 steht für Rot,
welche Ziffer steht für schwarz?
Gruß Reinhardt.
' In Zelle=Farbsumme(A1:A10;3) für Rot
Function FarbsummeS(Bereich As Range, Farbe As Integer)
' Schriftfarbe
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = Farbe Then
FarbsummeS = FarbsummeS + Zelle
End If
Next
End Function