26. September
von Alois Eckl
Kommentare deaktiviert für Zellen mit gleicher Schriftfarbe addieren

Zellen mit gleicher Schriftfarbe addieren

Bookmark and Share

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.