Mit folgendender Funktion werden alle Zellen addiert, welche die gleiche Schriftfarbe besitzen.
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.