0160-93 82 19 37 | Nehmen Sie 
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
