es wäre schön wenn mir jemand helfen könnte.
Gibt es eine Funktion für folgendes Problem:
Es sollen alle roten Zahlen in einer Spalte addiert werden.
Vielen Dank für eine schnelle Hilfe.
Gruß Dagmar
Function FarbsummeS(Bereich As Range, Farbe As Integer)
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