Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nach Datum filtern Makro

Nach Datum filtern Makro
24.09.2021 10:05:04
Tiefenr
Hallo zusammen,
bitte bei folg. Thema um euren Rat:
Ich würde gerne eine Tabelle nach Datum filtern und habe dazu diese Abfrage benützt:

ActiveSheet.Range("$A$9:$A$100").AutoFilter Field:=1, Criteria1:="2021 September 23 06:00:01"
Der Datumswert und die Uhrzeit der Abfrage sind in der Tabelle enthalten.
Aber es wird bei Ausführung des Makros nichts gefiltert.
Vielen Dank vorab.
Zur Info: Wenn ich ein Marko aufzeichne und dieses danach wieder ausführe, dann wird der Fehler "Laufzeitfehler `1004` ausgeworfen " Die AutoFilter-Methode des Range-Objektes konnte nicht ausgeführt werden."
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Datum filtern Makro
24.09.2021 10:54:30
MCO
Hallo!
Wie du schon richtig formuliert hast: Datumswert, daher musst du den filter mit dem Zahlenwert des Datums füttern,
Kriterium: cdbl (cdate("23.09.2021 06:00:01"))
Herauskommt als Kriterium 44462,2500115741
Gruß, MCO
AW: Nach Datum filtern Makro
24.09.2021 11:17:53
Ro
Hallo MCO,
vielen Dank für deinen Hinweis, aber ich habe leider ein Leerzeichen zu viel eingegeben, nun funktioniert die Filterung, siehe bitte hier:

datum = "23.09.2021 06:00:01"
ActiveSheet.Range("$A$9:$H$32").AutoFilter Field:=1, Criteria1:=datum
Was leider noch nicht funktioniert, eine Filterung mit "größer als" dem Datum, also:

ActiveSheet.Range("$A$9:$H$32").AutoFilter Field:=1, Criteria1:=">" & datum 
Hier wird wieder nichts gefiltert, es sollte aber z.B. der 24.09.21 12:00:00 dabei sein, der 23.09.21 05:00:00 nicht mehr.
Vielleicht weißt du hier auch die Lösung,
besten Dank.
Anzeige
AW: Nach Datum filtern Makro
24.09.2021 12:23:26
MCO
Ja, arbeite mit dem WERT!
Gruß, MCO
AW: Nach Datum filtern Makro
24.09.2021 16:40:32
Ro
Hallo MCO,
danke hab ich nun gemacht, was mich irritiert ist, dass bei dem Zellenwert die Zahl: 44460,0062 rauskommt und beim Vergleichswert mit dem gleichen Datum aber 444600,0062. Datum habe ich gewählt: 21.09.21 00:09:00

datumA = CDbl(CDate(Sheets("Dichtheitsübersicht").Range("B11").Value))
--> ERGEBNIS: 44460,0062 UND

datumB = CDbl(CDate("21.9.2021")) & CDbl(CDate("00:09:00"))
--> ERGEBNIS: 444600,0062
Anzeige
AW: Nach Datum filtern Makro
24.09.2021 20:55:09
GerdL
Hallo!
Ich weis nicht, ob es dein Problem abschließend löst. Aber statt dem Verkettungsoperator & solltest du
den Additions-Operator + verwenden.
Gruß Gerd
AW: Nach Datum filtern Makro
24.09.2021 21:10:23
Ro
Hallo Gerd, ja vielen Dank.
Das ist es.
Es bringt mir aber leider nichts, da ich in der gesamten Spalte mit den Datum-und Uhrzeit-Einträgen den Autofilter nicht verwenden kann.

ActiveSheet.Range("$A$10:$Z$20409").AutoFilter Field:=2, Criteria1:=datumA 
Ich kann ja den Filterbereich ("$A$10:$Z$20409") nicht konvertieren in Cdate, somit muss ich doch einen anderen Lösungsweg finden.
lg Robert
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige