Guten Morgen,
ich habe eine kleines Problem das ich gerne umgehen will.
Und zwar würde ich gerne etwas kopieren und dann auf ein neues Tabellenblatt in die erste freie Zeile einfügen.
Das klappt auch soweit ganz gut mit dem unten stehendem Codeschnippsel.
Aber
Wenn die nächste Freie Zeile, die Zeile 2 ist. Klappt das nicht. erst bei Zeile 3 klappt es mit dem unten stehendem Code.
Kann ich den unten stehenden Code irgendwie umschreiben, dass es schon bei der 2. Zeile klappt? Sollte für die meisten hier eine Sache von paar Sekunden sein und für mich ein Lernfaktor von großer Bedeutung da ich schon paar mal auf das Problem gestoßen bin aber nicht wusste wie ich es löse.
" ...
... .Copy
ZWB.Worksheets("Pfingsten").Cells(1, 1).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
"
Vielen dank.