Code anpassen

[Leonhard]

Morgen zusammen,

Code:

Sub a_einfügen()
Worksheets("Tabelle2").Range("A1:M21").Copy
Worksheets("Tabelle1").Range("U5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 Durch welchen Kniff kann ich den Bereich aus Tabelle2 solange untereinander in Tabelle1, Spalte U kopieren insofern eine Eintragung in Spalte T vorhanden ist.
Wenn ich den Befehl so ausführe wird der Bereich in Tabelle1 U5:U25 kopiert. Ziel ist es den gleichen Bereich nochmals darunter U26:U46;U47:U67... einzufügen insofern in Spalte T in der dann relevanten Zeile etwas steht.
Beste Grüße & Danke vorab
Leo

[BoskoBiati]

Hi,

mal ins Blaue:

Code:

Sub a_einfügen()
loLetzte=sheets("Tabelle1").cells(rows.count,"T").end(xlup).row
  sheets("Tabelle2").Range("A1:M21").Copy
for loA=5 to loletzte step 21
   sheets("Tabelle1").Range("U" & loA).PasteSpecial Paste:=xlPasteValues
next
Application.CutCopyMode = False
End Sub

[Leonhard]

Hi,

tausend Dank. Funktioniert einwandfrei =)