Diese Frage hat hier bereits eine Antwort:

Ich habe eine Funktion, die ich von MSDN erhalten habe, die die Anzahl der Zellen in einem Bereich zählt, die eine andere Zellenfarbe haben.

Hier ist der Code

Function countCcolor(range_data As Range, criteria As Range) As Long
    Application.Volatile
    Application.ScreenUpdating = False
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        countCcolor = countCcolor + 1
    End If
Next datax
Application.ScreenUpdating = True
End Function

Voraussetzung für diese Funktion ist, dass sie aktualisiert wird, sobald sich ein Farbwert einer Zelle ändert.

Meine Idee ist es, ein Ereignis für den Fall zu erstellen, dass die Farbe einer Zelle geändert wird, und es die beliebige Zelle mit der Funktion neu berechnen zu lassen, aber ich bin mir nicht sicher, ob dies der beste Weg ist.