Suche eine Rechenoperation welche aus einer Tabelle mit verschiedenfarbigen Zellen die Zahlenwerte der Zellen mit gleicher Farbe addiert.
R.
Function SummeFarbe(Bereich As Range, Farbe As Range)
Dim Zelle As Range
Dim Summe As Double
Application.Volatile
For Each Zelle In Bereich
If IsNumeric(Zelle) Then
If Zelle.Interior.ColorIndex = Farbe.Interior.ColorIndex Then
Summe = Summe + Zelle.Value
End If
End If
Next
SummeFarbe = Summe
End Function