Ausgangslage:
Ergebnis:
Beispielcode:
Tabelle18.Range("A1").AutoFilter Field:=1, Criteria1:=">=" & Format((DateSerial(2023, 11, 16)), "DD.MM.YYYY")