ich hab eine Excel - Tabelle die ich seit 2019 pflege.
Die Tabelle hat 3 Spalten: A , B , Datum
Jetzt möchte ich mit einer
Sub alle Zeilen vor dem 01.01.2021 aus der Tabelle löschen.
Sub AutoFilter_Date_Examples()
'Examples for filtering columns with DATES
Dim lo As ListObject
Dim iCol As Long
Sheets("Tabelle1").Activate
'Objekt
Set lo = ActiveSheet.ListObjects("Tabelle1")
'Spalte
iCol = lo.ListColumns("Datum").Index
'Clear Filters
lo.AutoFilter.ShowAllData
With lo.Range
' 'nach einem Single Date filtern funktioniert
' .AutoFilter Field:=iCol, Criteria1:="01.01.2021"
'Vor dem 01.01.2021 klappt nicht !! Der Autofilter ist aber richtig gesetzt, wenn ich manuell auf Ok klicke, dann wird die Tabelle richtig gefiltert.
.AutoFilter Field:=iCol, Criteria1:="
Danke im Voraus !
Grüße