ich habe ein Problem mit der summierung von farbigen Zellen.
Ich habe inzwischen folgende VBA Code in der Tabelle:
Public Function HFarbeSumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
HFarbeSumme = HFarbeSumme + Zelle.Value
End If
Next Zelle
End Function
Im Tabellenblatt habe ich die Formel
=HFarbeSumme(HFarbeSumme;10)