Thema: Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2

StandardModule: basMain

Sub Kopieren()
   Dim wksSource As Worksheet, wksTarget As Worksheet
   Set wksSource = Worksheets("Tabelle1")
   Set wksTarget = Worksheets("Tabelle2")
   Dim iRowT As Integer, iRowS As Integer
   iRowT = 1
   iRowS = 1
   Do Until IsEmpty(wksSource.Cells(iRowS, 1))
      wksSource.Rows(iRowS).Copy wksTarget.Rows(iRowT)
      iRowS = iRowS + 1
      iRowT = iRowT + 2
   Loop
   wksTarget.Columns.AutoFit
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren