Farbige Zellen bis heute() zählen
06.01.2021 16:48:27
Dirk
Ich bräuchte eure Hilfe bez. einer Funktion zum Zählen farbiger Zellen bis zum aktuellen Datum.
Ich habe die unten beschriebene Funktion "CountCcolor" mit der ich auf eine Zelle mit der entsprechenden Farbe verweise.
In Zeile 23 ab K23 ist ein Kalender der am 01.01.2021 beginnt.
Nun will ich die farbig markierten Zellen immer berechnen, wenn Excel geöffnet wird, bis zum aktuellen Datum.
Wie müsste dazu die unten genannte Funktion angepasst werden?
Danke im Voraus für eure Hilfe.
Function CountCcolor(range_data As Range, criteria As Range) As Long
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
End Function