AW: Beispieldatei
25.07.2016 15:03:42
UweD
Hallo
Private Sub CommandButton1_Click()
Dim j As Integer, i As Integer
Dim K As Date, von As Date, bis As Date, bis2 As Integer
For i = 1 To Range("I1")
With Sheets("Mitarbeiter " & i)
von = Int(.Range("O2")) 'Zeit wird abgeschnitten
bis = Int(.Range("O2"))
LR = .Cells(.Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte
For K = von To bis
bis2 = .Range("Q2")
For j = 1 To bis2
.Range("A2:K2").AutoFilter Field:=7, Criteria1:=Format(K, "DD/MM/YY") 'Spalte G ohne Zeit
.Range("A2:K2").AutoFilter Field:=10, Criteria1:=i
.Range("A1:R" & LR).Copy Worksheets("M1T" & j).Range("A1")
.ShowAllData
Next
Next
End With
Next
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0
Das filtern in der Datei klappte nicht, weil du nicht nur Datum, sondern auch noch Zeiten enthalten hast.
in I1 habe ich mal einen Wert 3 eingetragen, dann klappt es für Mitarbeiter 1
Bei Mitarbeiter 2 hats du einen Anderen Aufbau...
Gruß UweD