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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen