Hallo Zusammen,
ich möchte Inhalte aus 4 Worksheets in das Masterfile Worksheet kopieren. Jetzt überschreibt Excel aber beim kopieren Werte, wenn in Spalte A kein Inhalt ist.
Deshalb fehlen mir am Ende ein paar Zeilen.
Kann sich bitte einer den Code anschauen und mir helfen. Vielen Dank im Voraus !
Dim Sh As Worksheet
'Schleife über alle Tabellenblätter
For Each Sh In Worksheets
'Bestimmte Tabellenblätter überspringen
If Sh.Name "Masterfile" Then
'Daten kopieren und einfügen
Sh.UsedRange.Resize(Sh.UsedRange.Rows.Count).copy
Workbooks("Masterfile.xlsx").Worksheets("Masterfile").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial SkipBlanks:=False
End If
Next Sh