Mit diesen Beispielen möchte ich aufzeigen, wie man mit Excel VBA eingefärbte Zellen zählen kann. Zum Farben zählen benötigt Ihr die Nummer, welche einer Farbe zugewiesen ist. Diese könnt Ihr unter folgendem Link finden: klick
Im Beispiel geht es um folgende Tabelle:

Option Explicit

Sub Farben_zählen()
    Dim cell As Range
    Dim i As Integer
    i = 0
    For Each cell In Sheets("Tabelle1").UsedRange
        If cell.Interior.ColorIndex = 6 Then i = i + 1
    Next cell
    MsgBox ("Die Farbe mit der Nummer 6 wurde " & i & " mal gesetzt")
End Sub

Ihr könnt allerdings auch eine Variante mit einer Funktion nutzen. Sprich in diesem Beispiel erstellt Ihr Euch eine neue Formel, welche die Anzahl der gefärbten Zellen errechnet. Leider hat so eine Funktion den Nachteil, dass die Formel sich nicht automatisch aktualisiert. Bei diesem Beispiel könnt Ihr aber mit der F9 - Taste die Aktualisierung herbei führen.

Option Explicit

Function Farbe(Bereich As Range)
    Dim cell As Range
    Dim i As Integer
    Application.Volatile 'ermöglicht Aktualisierung durch Drücken von F9
    i = 0
        For Each cell In Bereich
            If cell.Interior.ColorIndex = 6 Then i = i + 1
        Next cell
    Farbe = i
End Function