Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Liste