Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2

Gruppe

Kopieren

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