habe im Archiv nach meinem o.g. Problem nichts gefunden. Kann mir aber nicht vorstellen, daß die Frage noch nie aufgetaucht ist. Wer kann mir trotzdem helfen?
Gruß
Andreas
Function FarbSumme(Bereich As Range, Farbindex As Integer)
Dim c As Range
For Each c In Bereich.Cells
If c.Interior.ColorIndex = Farbindex Then
FarbSumme = FarbSumme + c.Value
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