Hallo zusammen,
mein Problem schaut wie folgt aus.
Ich generiere aus einer Gesamtübersicht, in der Arbeitspakete für Mitarbeiter aufgelistet sind, die an unterschiedlichen Tagen abgearbeitet werden sollen, eine Übersicht, in der jeder Mitarbeiter (z.B Mitarbeiter 1-7) seine Arbeitspakete in einem Sheet auf einen Blick sieht und diese in weiteren Sheets pro Tag (z.B 1-5 Tage) aufgeteilt werden.
Das aufteilen der Sheets klappt auch schon ganz gut, nur werden diese Listen nicht mit den dementsprechenden Daten gefüllt. Für z.b Mitarbeiter 1 wird je nach Anzahl der Tage ein weiteres Sheet erstellt mit M1T1, M1T2...M1T5 und diese sollen mit dem dementsprechenden Daten vom Datum (Tag) gefüllt werden.
Mein Code schaut wie folgt aus:
Dim K As Date, von As Date, bis As Date, LR As Integer, i As Integer, j As Integer
Application.DisplayAlerts = wdAlertsAll
'neue Tabellenblätter für Anzahl Tage
'Mitarbeiterschleife
For i = 1 To Range("I1") Step 1
'Ermittlung der Tage in den Mitarbeitersheets
'Tage-Schleife, Anzahl Tage aus P2
For j = Range("P2") To 1 Step -1
Sheets.Add(after:=Worksheets("Mitarbeiter " & i)).Name = "M" & i & "T" & j
Next
Next
'Anzahl Tage mit den Daten füllen
For i = 1 To Range("I1")
With Sheets("Mitarbeiter " & i)
von = Int(.Range("N2")) 'Zeit wird abgeschnitten
bis = Int(.Range("O2"))
LR = .Cells(.Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte
j = 0
For K = von To bis
j = j + 1
.Range("A2:K2").AutoFilter Field:=7, Criteria1:=Format(K, "DD/MM/YY") 'Spalte G ohne Zeit
.Range("A2:K2").AutoFilter Field:=9, Criteria1:=i
.Range("A1:R" & LR).Copy Sheets("M" & i & "T" & j).Range("A1")
.ShowAllData
Next
End With
i = i + 1
Next
Eine Datei lade ich gleich noch hoch.
Vielen Dank schon mal im Voraus für eure Bemühungen!!
Viele Grüße
Niko