Gruppe
DatumZeit
Problem
Wie kann ich Daten aus einer Tagesliste (Datum in Spalte A) auf die einzelnen Tagesblätter verteilen. Die Blattnamen entsprechen dem jeweiligen Datum.
StandardModule: basMain
Sub Aufteilen()
Dim wks As Worksheet
Dim iRowS As Integer, iRowT As Integer
iRowS = 2
Do Until IsEmpty(Cells(iRowS, 1))
Set wks = Worksheets(Cells(iRowS, 1).Text)
iRowT = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(iRowS, 1), Cells(iRowS, 4)).Copy _
wks.Range(wks.Cells(iRowT, 1), wks.Cells(iRowT, 4))
iRowS = iRowS + 1
Loop
End Sub