VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2

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

    


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