Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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
Antworten Top
#2
Hola,

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

Gruß,
steve1da
Antworten 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)
Antworten Top
#4
https://www.herber.de/forum/
Antworten Top
#5
Eher so:
https://www.herber.de/forum/archiv/1800t...tm#1803862
Und das gleiche dann dort auch = untereinander.
Antworten 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)
Antworten Top


Gehe zu:


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