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