Kopierte Zellen in anderem Tabellenblatt anfügen?

Computer: Software & Programmierung Office Software
1

Hallo,

ich möchte per Makro folgendes realisieren:

Tabellenblatt1: ich markiere mehrere Zeilen und per Makro werden
diese in Tabellenblatt2 kopiert, jedesmal wenn ich das wiederhole
sollen die Zeilen im Tabellenblatt2 angefügt und nicht ersetzt werden.

Bis jetzt habe ich es nur hinbekommen das die Zeilen jedesmal überschrieben werden.
Hat jemand eine Idee?

Cells.Select
Selection.Copy
Sheets(„Tabellenblatt2“).Select
Cells.Select
ActiveSheet.Paste

2

Tabellenblatt1: ich markiere mehrere Zeilen und per Makro
werden
diese in Tabellenblatt2 kopiert, jedesmal wenn ich das
wiederhole
sollen die Zeilen im Tabellenblatt2 angefügt und nicht ersetzt
werden.

Hallo Thomas,

meinst du so:

Option Explicit

Sub Kopier()
With Worksheets("Tabellenblatt2")
 Selection.Copy .Cells(Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
End Sub

Gruß
Reinhard