Daten-Filter
06.02.2009 16:04:00
KlausL
mit nachfolgendem Code möchte ich aus einer Datei alle Geräte selektieren, deren Mindesüberlassung überschritten ist. Leider wird bei der Datumsübernahem das Datum im benutzerdefinierten Filter nicht als 06.02.2009 eingetragen sondern als 6/2/2009.
was mache ich falsch?
Sub WasIstZuAlt()
Dim Datum As Date
Datum = Format(Now, "dd.mm.yyyy")
Sheets("M_UEBERLASSUNG").Select
If ActiveSheet.AutoFilterMode = False Then
Rows("4:4").Select
Selection.AutoFilter
End If
Selection.AutoFilter Field:=10, Criteria1:=Datum
Range("A1").Select
End Sub
Bereits jetzt vielen Dank für Hinweise und Ratschläge
Gruß Klaus
Anzeige