Arbeitsblätter untereinander kopieren und leere Zeilen einfügen

[kosmoritz]

Hallo liebes Forum,

ich habe hier einen Code, welcher mir die Anzahl meiner Arbeitsblätter ermittelt und den Inhalt in ein Arbeitsblatt untereinander schreibt, ohne Leerzeilen dazwischen.
Nun möchte ich aber 3 Leerzeilen zwischen jedem Arbeitsblatt haben.
Hier der Code, welcher aber keine Leerzeilen einfügt.

Code:

Dim i As Integer
Dim LRow As Long

Application.ScreenUpdating = False
Sheets.Add Before:=Sheets(1)

For i = 2 To Sheets.Count
        LRow = .Cells(Rows.Count, 5).End(xlUp).Row
        .Range("A1:G" & LRow).Copy Sheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
    End With
Next
Application.ScreenUpdating = True

Ich habe nun versucht ans Ende der For-Schleife folgenden Code einzubauen, aber die Leerzeilen werden nur vor das erste Tabellenblatt gesetzt

Code:

ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Insert

Wo liegt der Fehler ?

Viele Grüße

Moritz

[kosmoritz]

Und mit

Code:

Insert Shift:=xlDown

macht er zwar einen Abstand rein, aber Spalte A wird komisch verschoben.


Viele Grüße

[Kuwer]

Hallo Moritz,

wozu das Insert?

.Range("A1:G" & LRow).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(4)

sollte doch genügen.

Gruß Uwe