Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function
Leider zählt diese Funktion nur die Anzahl der farbigen Felder, addiert aber nicht den Inhalt der Felder
Bsp.zur Verdeutlichung:
A1 : 400
A2 : 250 (roter Hintergrund; Farbcode 3)
A3 : 100
A4 : 200 (roter Hintergrund; Farbcode 3)
Der Code/die Funktion soll jetzt berechnen das beide rot hinterlegten Zellen die Summe 450 bilden. Aktuell wirft die obigen Funktion als Ergebnis "2" raus; es werden nur die farblichen Felder, nicht aber deren Summen-Inhalt errechnet.
Kann mich jemand auf die Lösung bringen? Thanx im Voraus.