Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Code anpassen
#1
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
Antworten Top
#2
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
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
[-] Folgende(r) 1 Nutzer sagt Danke an BoskoBiati für diesen Beitrag:
  • Leonhard
Antworten Top
#3
Hi,

tausend Dank. Funktioniert einwandfrei =)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste