VBA Tabellen zusammenfügen
10.01.2023 15:02:09
Susanne
ich versuche gerade zwei variable Tabellen mittels vba Code zu vereinen. Ich habe mehrere Tabellen auf dem Sheet "Query Pzahlen 2022 A3.2" und möchte dort Tabelle 8 mit der Tabelle 4 vom Sheet "Query Pzahlen 2021 A3.2" auf einem neuen Tabellenblatt zusammenfügen. Der Tabellenaufbau ist identisch. Ziel ist Sheet "A3.2" in Zelle E7. Die 2. Tabelle soll dann unterhalb der ersten eingefügt werden. Ich habe mich in folgendem vba Code versucht und bin kläglich gescheitert:
Sub Tabellenblaetter_3_2_zusammenfügen()
Dim objList As ListObjects
Dim sh As Worksheet
'Daten kopieren und einfügen
sh("Query Pzahlen 2022 A3.2").Select
objList.ListObjects("Tabelle8").Copy
Sh("A3.2").Select
Range("E7").PasteSpecial
sh("Query Pzahlen 2021 A3.2").Select
objList.ListObjects("Tabelle4").Copy
master.Cells(Rows.Count).End(xlUp).Offset(1).PasteSpecial
End Sub
Danke vorab und lieben Gruß
Susanne