Excelmakro mit VBA

Computer: Software & Programmierung Office Software
1

Hallo zusammen,
ich bin im Thema Makro ganz neu und versuche schon seit lägerem ein Makro zu erstellen und komme aber einfach auf keinen grünen Zweig.

Hier meine Aufgabe, die ich zu lösen versuchte:
Ich will in einer Datei auf Tabellenblatt 1 eine Tabelle mit Überschriften in der ersten Zeile und Datenzellen die man ausfüllt in der 2 Zeile in das Tabellenblatt 2 mit der gleichen Überschrift immer ans Ende der Liste zu kopieren und dann die Daten im Tabellenblatt 1 löschen damit ein Neueingabe stattfinden kann.

Es wäre super wenn mir jemand helfen kann und vielen Dank schon mal im voraus!
Gruß Schaeufele

2

Ich will in einer Datei auf Tabellenblatt 1 eine Tabelle mit
Überschriften in der ersten Zeile und Datenzellen die man
ausfüllt in der 2 Zeile in das Tabellenblatt 2 mit der
gleichen Überschrift immer ans Ende der Liste zu kopieren und
dann die Daten im Tabellenblatt 1 löschen damit ein Neueingabe
stattfinden kann.

Hallo Schaeufele,

Sub Kopier()
Dim Zei As Long
With Worksheets("Tabelle2")
 Zei = .Range("A" & Rows.Count).End(xlUp).Row
 Worksheets("Tabelle1").Rows(2).Copy Destination:=.Range("A" & Zei + 1)
 Worksheets("Tabelle1").Rows(2).Delete
End With
End Sub

Gruß
Reinhard