Ich möchte aus einer Tabelle einen bestimmten Datumsbereich filtern und auf ein anderes Tabellenblatt kopieren und eine Listbox füllen, jedoch funktioniert nur ein Kriterium
Habt ihr einen Tipp?
So kann der autofilter nicht ausgeführt werden (Fehler 1004)
Sub Zeiten_Laden()
Application.ScreenUpdating = False
Dim Ab As Worksheet
Set Ab = ThisWorkbook.Sheets("Arbeitszeit")
Dim Ab_dis As Worksheet
Set Ab_dis = ThisWorkbook.Sheets("Arbeitszeit_Display")
Dim DatVon, DatBis As Double
DatVon = Me.txt_start_dat.Value
DatBis = Me.txt_end_dat.Value
Ab.AutoFilterMode = False
Ab_dis.AutoFilterMode = False
Ab_dis.Cells.Clear
Ab.Range("A2:h100000").AutoFilter field:=2, Criteria1:=">=" & DatVon, Operator:=x1and, Criteria2:="