Bestimmte Farbe in einem Bereich zählen

Sehr oft gewünscht und Excel kann es nicht.
Es gibt auch kein Ereignis für den Farbwechsel. Deshalb muss die Berechnung manuell angestoßen werden.

Das hier ist eine Aussage von 2005, die ich gefunden habe. Gibt es denn zwischenzeitlich 2008/09
eine Möglichkeit Farben unmittelbar nach Eingabe(vielleicht auch über einen Umweg?) sofort ohne
"manuell anstoßen" zu müßen, zu zählen?
Option Explicit
Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
Dim c As Range
For Each c In Bereich
If c.Interior.ColorIndex = Farbe Then
FARBEZÄHLEN = FARBEZÄHLEN + 1
End If
Next c
End Function
Formel in einer Zelle: =farbezählen(A1:J28;3)
=FARBEZÄHLEN(Bereich;Farbnummer)
Gruß
Elk