Office: (Office 2013) Einfügen MIT extra Leerzeilen (VBA)

Hallo,

kann mir jemand zeigen wie man per VBA einen Bereich (Spalte) von einem Arbeitsblatt kopiert und auf ein anderes Blatt mit zusätzlichen Leerzeilen einfügt? Ich brauche immer zwei Leerzeilen, Zelleninhalt, zwei Leerzeilen, Zelleninhalt usw

Vielen Dank.

 

Hallo h3rb3rt,

was hast du denn schon an Code?

Als einfachen Weg würde ich vorschlagen, über eine Schleife jede Zelle der Spalte einzeln kopieren, Blatt wechseln, Inhalt einfügen, zwei Zellen nach unten springen und ins Originalblatt zurückwechseln.

Gruß,
Lutz

 

Hi,

ich würde zuerst alles kopieren und anschließend in der Kopie die Leerzeilen einfügen:

Code:

Sub Kopieren()
    Dim lngZeile As Long
    Dim lngLetzte As Long
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    Range(Cells(1, 1), Cells(lngLetzte, 1)).Copy Worksheets("Tabelle3").Range("A1")
    With Worksheets("Tabelle3")
        For lngZeile = lngLetzte To 2 Step -1
            .Range(.Cells(lngZeile, 1), .Cells(lngZeile + 1, 1)).EntireRow.Insert
        Next lngZeile
    End With
End Sub

Bis später,
Karin

 

Lutz, ich habe, mangels Programmierkenntnis, versucht ein Makro aufzuzeichnen, dass das machen sollte, was ich wollte, aber da es sich hier um einen wiederholenden Vorgang handelt, der beendet werden muss, wenn die zu kopierenden Daten zu Ende sind, bin ich nicht weit gekommen.

Karin, vielen Dank. Leider habe ich es mit Deinem Code noch nicht hinbekommen. Wo kopiert der Code die Quelldaten? Ich sehe keinen Ausdruck der den Quellbereich markiert und kopiert (so wie ich es aus der Makroaufzeichnung kennengelernt habe).

 

Hi,

Hast du den Code denn schon mal getestet?
Suche einfach nach der Zeile in der .Copy steht...

Der Makrorekorder zeichnet JEDEN Schritt auf, also auch das Markieren der Zellen. Der Quellbereich wird jedoch nicht markiert, wenn man so kopiert wie in meinem Code.

Kopiert wird Spalte A von Zeile 1 bis zur letzten belegten Zeile - das habe ich einfach so angenommen da du dazu nichts geschrieben hast.

Bis später,
Karin