in der unten beschrieben Funktion zähle ich die Roten Zellen, wenn ich aber über einen anderen Makro den Status zurücksetzen will und alle Zellen mit einen Ursprungswert überschreiben, startet jedesmal die Funktion ( und das auch noch für Gelb und Grün). Wie kann ich die Funktion deaktivieren, wenn der andere Makro die Zellen umschreibt, danach möchte ich die Funktion wieder aktivieren.
Danke im Voraus.
Function Anzahl_Rot(Bereich As Range)
Dim Zelle As Range, i As Integer
Application.Volatile
i = 0
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 And Zelle.Value "" Then i = i + 1
Next Zelle
Anzahl_Rot = i
End Function