Fehler bei Datum im Autofilter
23.12.2013 09:22:29
Stephan
vielleicht könnt ihr mir helfen.
Ich möchte beim Autofilter der Tabelle "Daten" das Kriterium Datum aus ergonomischen Gründen in einer anderen Zelle (B1) setzen und nicht mittels des Dreiecks.
Dazu habe ich folgenden Code eingefügt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim datWert As Date
If Target.Address(0, 0) "B1" Then Exit Sub
datWert = Worksheets("Daten").Range("B1")
Worksheets("Daten").Range("A2").AutoFilter Field:=1, Criteria1:=datWert
End Sub
Das Ergebnis ist verblüffend: Schreibe ich in B1 das Datum z.B. "05.01.2014", so ändert der Code den Autofilter in A2 auf "01.05.2014". Irgendwie haut mir also Excel hier die Datumsformate durcheinander und macht aus dem Format DD.MM.YYY das Format MM.DD.YYYY.
Wie kann ich das verhindern und das Datum richtig setzen ?
Vielen Dank schon mal für Eure Hilfe.
Grüße
Stephan