Die Datei ist sehr groß, daher über VBA.
Meine Frage:
Die Daten stehen in im Bereich "A:T" mit mehreren 1000 Datensätze, diese sollen dann gefiltert werden. (siehe Code)
Wie kann ich nach der Sortierung die gefilterten Datensätze aussschneiden und z. B. in das Blatt "Fehlzeiten" einfügen? Vielen Dank!!!
Sub Sort
dim TB2 as integer
Set TB2 = Sheets("Daten") 'die SQL Daten aus EQlab
Dim TB3 as integer
Set TB3 = Sheets("Fehlzeiten")
With TB2
.ListObjects("Daten").Range.AutoFilter Field:=20, Criteria1:= _
"=Samstag", Operator:=xlOr, Criteria2:="=Sonntag"
.ListObjects("Daten").Range.AutoFilter Field:=18, Criteria1:= _
"=21:00:00", Operator:=xlAnd
End With
End Sub