Datum an Autofilter übergeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
1. du solltest beim kürzen der Beispieldatei darauf achten, dass du nicht Sachen löschst, die für deine Fragestellung relevant sind.
hier fehlt bspw das Tabellenblatt, auf dem das Datum steht nach dem gefiltert werden soll.
2. Datum ist in Excel immer kitisch. In der Exceltabelle ist das Datum zwar immer eine einfache Zahl, sobald aber VBA ins Spiel kommt gilt das nicht mehr so ohne weiteres.
um deinen Code ans laufen zu bringen, gibts zwei möglichkeiten:
a) du lässt den Code zum Filtern wie er ist, Da du aber explizit nach einer Zahl filters, muss in den Zellen auch eine Zahl stehen, also müsstest du das Zahlenformat der Spalte 17 auf "Standard" stellen, dann würde dein Code laufen
b) du änderst den Code so ab, dass er für Datumswerte funktioniert. um rauszufinden, was du dazu tun musst, solltest du einfach mal den Filter anwenden und dann das Ergebnis mit dem Recorder aufzeichnen. das hilft meistens.
bei mir kommt dann folgendes Ergebnis raus:


ActiveSheet.ListObjects("TabData").Range.AutoFilter Field:=17, Operator:= _
xlFilterValues, Criteria2:=Array(1, "3/1/2021")

dh du brauchst zum Filtern nach einem bestimmten Datum folgendes:
- ein Array mit zwei Werten:
der erste Wert gibt an, nach dem genauen Tag, (1), dem Monat des Datums (2) oder dem Jahr des Datums gefiltert werden soll (3)
der zweite Wert ist dann das Datum in Textform in amerikanischer Schreibweise, dh Monat-Tag-Jahr mit dem Schrägstrich als Trennzeichen
also als ganzes dann so:


... .AutoFilter Field:=17, Operator:=xlFilterValues, Criteria2:=Array(1, Format(v_ALT_SSD, "m\/d\/yyyy"))

Gruß Daniel

HI
im Format-Befehl gibts sog. Funktionszeichen, die nicht das Zeichen selbst bedeuten, sondern eine Funktion haben wie z.b "Dezimalzeichen", "TausenderTrennzeichen" oder die Symoble H,M,S für Stunden, Minunten, Sekunden.
ebenso ist der Slash "/" aus dem Amerikanischen das Symbol für die Datumstrennung.
das Problem ist, dass diese Funktionszeichen, die in der Programmierung immer amerikanisch angegeben werden müssen, in der Ausgabe in die jeweiligen Zeichen gemäß der Ländereinstellung übersetzt werden, dh aus dem amerikanischen Dezimalzeichen "." wird das deutsche ",", aus dem amerikanischen Datumstrennzeichen "/" wird der deutsche "."
da wir aber in unserem Textstring den "/" benötigen, müssen wir diesen als normales Zeichen in unseren Formatstring einfügen, damit er nicht mehr umgewandelt wird.
Dazu gibt es zwei Möglichkeiten:
a) man setzt die Zeichen, die keine Funktionszeichen" sein sollen in Anführungszeichen
b) man setzt vor das Zeichen den Backslash
der Backslash gilt dann immer nur für das direkt folgende Zeichen, Anführungszeichen würde man verwenden wenn es eine längere Zeichenkette ist.
Gruß Daniel

Dim v_ALT_SSD As Date Dim strFormat As String v_ALT_SSD = Range("nDatum_Referenz").Value strFormat = ActiveSheet.ListObjects("TabData").DataBodyRange.Columns(17).Cells(1).NumberFormat ActiveSheet.ListObjects("TabData").Range.AutoFilter Field:=17, Criteria1:="=" & Format(v_ALT_SSD, strFormat)

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread