Hätte da jemand eine Lösung wie man das macht?
Ich bedanke mich im Voraus!
LG
Hier der Code der den ganzen Bereich der Tabelle kopiert und in eine andere einfügt:
ActiveSheet.ListObjects("test1").DataBodyRange.Copy
ActiveSheet.ListObjects("test2").DataBodyRange.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False