Farbige Zellen bis heute() zählen
#1
Hallo zusammen.
 
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  Zelle mir 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
Top
#2
Hola,

https://www.clever-excel-forum.de/misc.php?action=help&hid=10
Bitte lesen und umsetzen.

Gruß,
steve1da
Top
#3
Hallöchen,

Du übergibst der Funktion beim Öffnen der Exceldatei den Bereich bis zum heutigen Datum.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#4
https://www.herber.de/forum/
Top
#5
Eher so:
https://www.herber.de/forum/archiv/1800t...tm#1803862
Und das gleiche dann dort auch = untereinander.
Top
#6
... oder DU verlässt die Schleife vor Next DataX mit

If datax.Value = Date Then Exit For
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste