Summierung farbiger Zellen
08.05.2015 11:55:00
Holger
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)
Anzeige