Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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."

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
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
Anzeige
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

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige