ich benötige eine Funktion, die in einem bestimmten Zellbereich das vorkommen einer Hintergrundfarbe zählt. Die folgende Funktion kann dies auch.
Wenn ich diese Funktion anwende wird korrekt gezählt. Wenn ich allerdings die Farbe einer Zelle ändere, wird nicht automatisch aktualisiert, sondern erst nach anklicken der Formel in der Eingabezeile und drücken von Enter.
Wie kann ich es erreichen, dass sofort aktualisiert wird??
Public Function countColor(bereich As Range, farbe As Integer) As Integer
Dim x As Integer, y As Integer
Dim startx As Integer, starty As Integer
Dim zelle As Range
Dim anzahl As Integer
startx = 1
startx = bereich.Row
starty = bereich.Column
x = bereich.Columns.Count
y = bereich.Rows.Count
anzahl = 0
For Each zelle In bereich
If zelle.Interior.ColorIndex = farbe Then
anzahl = anzahl + 1
End If
Next
countColor = anzahl
End Function