|
Hallo liebe VBA Community,
ich habe mich schon durch Beiträge diverser VBA Foren geklickt, aber leider keine Lösung gefunden.
Wir arbeiten mit MS Office Professional 2019. Ich habe eine Excel Arbeitsmappe mit 4 Reitern. Unter dem Reiter "Makro" findet man zwei Zeilenblöcke (2:5) und (6:14), welche über jeweils ein Makro in den Reiter "Inhalt" kopiert werden. Als Zielzeile wurde Zeile 47 in die Makros geschrieben. Das funktioniert erstmal tadellos, allerdings sollen die eingefügten Blöcke immer am Ende der Tabelle eingefügt werden und daran scheitere ich leider im Moment. Mir ist schon klar, dass durch den Code immer die Zeile 47 genutzt wird, aber da ich leider auch keine tieferen VBA-Kenntnisse habe, bekomme ich den Code einfach nicht umgeschrieben.
Würde mich sehr freuen, wenn mir hier jemand einen Tipp zum Anpassen des Codes geben könnte.
Sub Einfügen_Zuführung()
'
' Einfügen_Zuführung Makro
'
Sheets("Makro").Select
Rows("2:5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Inhalt").Select
Rows("47:47").Select
Selection.Insert Shift:=xlDow
End Sub
Sub Einfügen_Vereinzelung()
'
' Einfügen_Vereinzelung Makro
'
Sheets("Makro").Select
Rows("6:14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Inhalt").Select
Rows("47:47").Select
Selection.Insert Shift:=xlDow
End Sub
Vielen Dank für Eure Hilfe schonmal im Voraus.
|