Alle Zellen mit gleicher Schriftfarbe addieren

 

107001




Dieses Beispiel soll demonstrieren, wie Sie mit speziell formatierte Zellen

Rechenoperationen durchführen lassen können.

In diesem Beispiel 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.


Über diese Index-Nummer kann auf die Standard-Farben zugegriffen werden