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)
    FarbSumme = 0
    For Each Zelle In Bereich
        If Zelle.Font.ColorIndex = 3 Then
            FarbSumme = FarbSumme + Zelle.Value
        End If
    Next
End Function