Hallo,

ich hab da mal eine Frage zu einem Makro wo ich jetzt schon ne Zeitlang hänge.

Ich möchte aus Tabelle1 (bestimmte Zeile) Daten in Tabelle 2 kopieren.

Die Kopieranzahl dieser Zeile hängt von der Stückzahl ab die in Tabelle 1 definiert ist.

Das funktioniert ja schon alles mit dem Kopieren in Tabelle 2 und mit den Stückzahlen wie oft diese eingefügt werden.

Mein Problem ist  wenn  Daten in Tabelle2 Kopiert werden und ich von Tabelle1  die nächste Zeile Kopieren lasse er immer in Tabelle 2 die Daten der bereits dort stehen überschreibt.

Er soll quasi immer in die nächste freie Zeile in Tabelle2 schreiben.

Ich weiß leider nicht wie ich das ganze einbauen soll.

Hier mein Makro:

Sub fÜLLUNG1()
Dim Zeile, Anzahl
Zeile = 2 'Worksheets("Tabelle1").Range("A1:D2").Value
Anzahl = Worksheets("Tabelle1").Range("E2").Value
For i = 1 To Anzahl
'Rows(Zeile + i).Insert Shift:=xlDown 'Sollen vorhandene Zeilen überschrieben werden, dann diese Zeile löschen!
Worksheets("Tabelle1").Rows(Zeile).Copy Destination:=Worksheets("Tabelle2").Rows(Zeile + i)
Next i
End Sub