Zellen mit gleicher Schriftfarbe addieren

Mit folgendender Funktion werden alle Zellen addiert, welche die gleiche Schriftfarbe besitzen.

Function Farbsumme(Bereich As Range)
Application.Volatile
Farbsumme = 0
For Each zelle In Bereich
If zelle.Font.ColorIndex = 3 Then
Farbsumme = Farbsumme + zelle.Value
End If
Next
End Function

In diesem Beispiel werden alle Zellen mit Schriftfarbe „Rot“ addiert.

 

_
_

Soll beispielsweise im Zelle A11 das Ergebnis aus dem Bereich A1:A10 ermittelt werden, so erfassen Sie in Zelle A11 diese Formel:

=FARBSUMME(A1:A10)

Weitere Informationen wie beispielsweise die Farbcode-Skala finden Sie auf www.excel-inside.de.