Alle Zellen mit gleicher Schriftfarbe addieren

Dieses Beispiel soll demonstrieren, wie Sie mit speziell formatierte Zellen Rechenoperationen durchführen lassen können. 
Excel kann Standardmäßig Formatierungen wie Schriftfarbe, Hintergrundfarbe, Unterstreichungen etc. nicht in die Formelberechnung mit einbeziehen. Es macht aber hin und wieder absolut Sinn diese weitere Dimension im Kalkulationsmodell zu verwenden.

Im folgendenBeispiel werden alle rot formatierten Zellen addiert:

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


Die Farben der Standard Farbpalette haben folgende Index-Nummern.

Wenn Sie die Idee gut  finden und Ihr Excel um neue Summierungsformern erweitern möchten, dann sehen Sie sich unser Summierungs-Tools etwas näher an.