Schleife mit Filter- und Copyfunktion
01.08.2016 13:59:31
NiSt
ich habe eine Exceltabelle in der ich Arbeitspakete von einem Mitarbeiter an verschiedenen Tagen habe.
Diese Arbeitspakete sollen auf einzelne Sheets, den Tagen entsprechend, aufgeteilt werden.
Also Mitarbeiter1 Tag1, Mitarbeiter1 Tag 2, usw..
Ich habe auch schon einen Code geschrieben, nur kopiert er mir immer alle Arbeitspakete in jeden Sheet rein und nicht nur die Arbeitspakete für den einen Tag.
' Anzahl Tage mit den Daten füllen
For i = 1 To Range("I1") 'i = ist 5
With Sheets("Mitarbeiter " & i)
von = Int(.Range("N2")) ' von 18.08.2016
bis = Int(.Range("O2")) ' bis 22.08.2016
LR = .Cells(.Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte
For K = von To bis
For j = 1 To Range("P2") Step 1 ' j= 5 Tage
.Range("A2:K2").AutoFilter Field:=7, Criteria1:=Format(K, "DD/M/YYYY") 'Spalte G ohne Zeit
.Range("A2:K2").AutoFilter Field:=9, Criteria1:=i
.Range("A1:R" & LR).Copy Sheets("M" & i & "T" & j).Range("A1")
Next
Next
End With
Next
Kann mir jmd. weiterhelfen?
Vielen Dank und viele Grüße
Nikolai