Gruppe
Allgemein
Bereich
Kopieren
Thema
Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2
Problem
Wie kann ich Zeilen aus Tabelle 1 so in Tabelle 2 einfügen, dass jeweils eine Leerzeile hinzugefügt wird?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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