Hallo Excel-Gemeinde,
ich muss innerhalb kurzer Zeit leider nochmals eine Frage stellen.
Folgendes;
Ich möchte aus dem einen Tabellenblatt "Auswahl" ab A2: H & bis zur letzten Zelle kopieren
und in Tabellenblatt "Druck" die erste freie Zelle in Spalte A einfügen.
Klingt banal, doch für einen VBA-Beginner ........
Ich bin mit dem Code mal soweit:
Sub dynamischKopierenEinfuegen()
With ThisWorkbook.Worksheets("Auswahl")
.Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 0, 8)).Copy
End With
With ThisWorkbook.Worksheets("Druck")
.Range("A2").PasteSpecial Paste:=xlPasteValues
End With
End Sub
das bis zur letzten beschriebenen Zelle (in "Auswahl") kopiert wird,- aber wie ich nun in "Druck" in die erste freie Zelle der Spalte A einfüge ...... ich habe da schon stundenlang die absurdesten Anweisungen gegeben ....
Kann mir jemand den Code ergänzen,- bzw. wenn der "ganz Panne ist", mir den richtigen Code schreiben?
mit freundlichen Gruß
Woppel
|