Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Code anpassen
Normale Version: Code anpassen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Leonhard

29.05.2018, 08:48
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

29.05.2018, 09:08
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

29.05.2018, 09:26
Hi,

tausend Dank. Funktioniert einwandfrei =)
Clever-Excel-Forum > Office-Anwendungen > Excel > Code anpassen