Ich möchte mehrere zusammenhängende Zeilen von einem Tabellenblatt in ein anderes kopieren.
Das ganze funktioniert einwandfrei mit dem Makro 1:
Sub Makro1()
' Makro1 Makro
Rows("4:" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A3").Select
ActiveSheet.Paste
End Sub
Da ich aber immer wieder lese dass man auf "select" verzichten sollte, wollte ich den Code vereinfachen.
Die ersten zwei Zeilen lassen sich gut zusammenfassen, der Teil mit dem Einfügen klappt jedoch nicht.
Sub Makro4()
' Makro3 Makro
Rows("4:" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
Sheets("Tabelle1").Range("A3").Select
ActiveSheet.Paste
End Sub
Ich erhalte einen Laufzeitfehler 1004, Die Select Methode konnte nicht ausgeführt werden.
Mein Ziel wäre es auch das einfügen als Einzeiler zu erledigen (also inkl. Paste)
Könnt ihr mir helfen?
Gruss
Andi