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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen