VBA: Datum im Autofilter funktioniert nicht

klexy · 14.01.2012

Win XP, Excel97

Ab Zeile 5 beginnt die Tabelle, die ich filtern will, die Datumsspalte ist Spalte B. Das Zellformat ist TT.MM.JJ.
In B2 ist das von-Datum und in C2 ist das bis-Datum vorgegeben.
Ich will größer gleich von und kleiner gleich bis filtern.

Code:

Sub Filtern_nach_Datum()

Dim von As Date, bis As Date
von = Range(B2).Value
bis = Range(C2).Value

Selection.AutoFilter Field:=2, Criteria1:=>= &amp; Format(von, dd.mm.yy), Operator:=xlAnd, Criteria2:=&lt;= &amp; Format(bis, dd.mm.yy)

End Sub

Warum funktioniert das nicht? Das Ergebnis sind Null gefilterte Zeilen.
Wenn ich den benutzerdefinierten Filter per Mausklick aufrufe, stehen da die richtigen Werte drin. Wenn ich nach dem Anschauen den benutzerdefinierten Filter mit OK schließe, filtert es korrekt.

Es funktioniert auch nicht wenn ich das Makro direkt per Makrorecorder aufgezeichnet habe:

Code:

Sub Filtern_direkt_nach_Datum()

Selection.AutoFilter Field:=2, Criteria1:=>=03.01.12, Operator:=xlAnd, Criteria2:=&lt;=07.01.12

End Sub

Matjes · 14.01.2012

Hallo klexy,

in der Datumsvergleichsangabe muß das Datum mit vierstelliger Jahreszahl angegeben werden.

Code:

Selection.AutoFilter Field:=2, Criteria1:=>= &amp; Format(von, dd.mm.yyyy), Operator:=xlAnd, Criteria2:=&lt;= &amp; Format(bis, dd.mm.yyyy)

Gruß Matjes

klexy · 15.01.2012

Hallo Matjes,

danke, geht aber auch nicht.

Auch das nicht:

Code:

Selection.AutoFilter Field:=2, Criteria1:=>=03.01.2012, Operator:=xlAnd, Criteria2:=&lt;=07.01.2012

Aber heute nacht hab ich eine andere Variante geträumt und die funktioniert.:

Code:

Selection.AutoFilter Field:=2, Criteria1:=>= &amp; Format(von, 0), Operator:=xlAnd, Criteria2:=&lt;= &amp; Format(bis, 0)

Wunder der Technik.

VBA: Datum im Autofilter funktioniert nicht

klexy

Matjes

klexy

VBA: Datum im Autofilter funktioniert nicht

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums