AutoFilter zeigt gefilterte Daten nicht

[aloqqq]

Hallo,

Ich benutze diesen Code zum Filtern, aber es werden gar keine Werte angezeigt.
Selection.AutoFilter Field:=6, Criteria1:= _
"=03.12.2020"

In Excel ist der Filter dann genauso eingestellt wie er sein muss, ich muss nichts mehr ändern und wenn ich auf OK klicke erscheinen die gesuchten Werte auch wie gewohnt.
Alleine durch das Makro jedoch noch nicht. Wie kann ich das beheben?

MfG

[Nepumuk]

Hallo

du musst das Datum in die Tageszahl konvertieren:

Selection.AutoFilter Field:=6, Criteria1:=CStr(CLng(DateValue("03.12.2020")))

[aloqqq]

So wird auch nachdem ich OK klicke nichts mehr angezeigt. Im Filter steht dann ja auch die Datumszahl. Die Spalte ist schon auf Datum formatiert.

Wenn ich den Filter manuell einstelle mache ich nichts anders als das Makro:
Ich schreibe im Datumsfilter entspricht 03.12.2020. Dann drücke ich OK. Die Werte erscheinen.
Nach Ausführen des Makros steht dort auch entspricht 03.12.2020. Die Werte erscheinen nicht.

[Nepumuk]

Hallo,

kann ich nicht nachvollziehen. Aber versuch es mal so:

Code: Alles auswählen

Selection.AutoFilter(Field:=6, Operator:=xlFilterValues, Criteria2:=Array(2, "12/3/2020"))

[aloqqq]

Hey nepumuk danke für deine Unterstützung
Ich lese den Filterwert als Variable aus.

Dim Datum as String
Datum = Workbooks("a").Worksheet("b").Range("A1").Value

Ich muss es natürlich als 'Dim Datum as Date' definieren.

[slowboarder]

An verschiedenen Stellen braucht VBA immer die Amerikanischen Formate, um den Wert als Zahl oder Datum zu erkennen.
Excel selbst orientiert sich immer an den Formaten der Ländereinstellung.
Da der Recorder das aufzeichnet, was du in Excel eingibst, landen die Formate der Ländereinstellung im Code.
Das ist ein Problem des Recorders und der aufgezeichnete Code muss dann angepasst werden.

Gruß Daniel

[Nepumuk]

Hallo,

teste mal:

Code: Alles auswählen

Dim Datum As String

Datum = Replace$(Format$(Workbooks("Mappe1").Worksheets("Tabelle1").Range("A1").Value, "mm.dd.yyyy"), ".", "/")

Selection.AutoFilter Field:=6, Operator:=xlFilterValues, Criteria2:=Array(2, Datum)

[aloqqq]

Ja das funktioniert auch