Gruppe
Allgemein
Problem
Wie kann ich Zeilen aus Tabelle 1 so in Tabelle 2 einfügen, dass jeweils eine Leerzeile hinzugefügt wird?
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