Gruppe
DatumZeit
Bereich
Liste
Thema
Daten aus Tagesliste auf Tagesblätter verteilen
Problem
Wie kann ich Daten aus einer Tagesliste (Datum in Spalte A) auf die einzelnen Tagesblätter verteilen. Die Blattnamen entsprechen dem jeweiligen Datum.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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