Guten Morgen,

ich hänge gerade etwas dabei, Daten von einer Tabelle in eine andere zu kopieren. Es soll eine Zelle in einer intelligenten Tabelle angewählt werden, dann soll das Makro ausgeführt werden und die gesamte zeile der intelligenten Tabelle soll dann in eine andere intelligente Tabelle auf einem anderen tabellenblatt kopiert werden. Die Daten sind im tb_Datenbank in Listobject(1) und sollen ins tb_Warenkorb in das dortige Listobject(1). kopiert werden. Eigentlich hört es sich nicht kompliziert an aber ich glaube ich scheitere daran, die Listobjects richtig anzusprechen :(.

Könnte mir hier evtl. jemand auf die Sprünge helfen? 

Danke im voraus :)

Anbei noch mein Code der nicht funktioniert

Sub Makro1()
'Variablen definieren
    Dim Datenbank As ListObject
    Dim Warenkorb As Worksheet
    Dim Zeile As Long
    
'Variablen setzen
    Set Datenbank = tb_Datenbank.ListObjects(1)
    Set Warenkorb = tb_Warenkorb
    Zeile = Warenkorb.ListObjects(1).DataBodyRange.Rows.Count
    
'Zeile bei Warenkorb hinzufügen
    Warenkorb.ListObjects(1).ListRows.Add
'Auswahl kopieren
    ActiveCell.EntireRow.Select
    'Selection.Copy
'Zeile in Warenkorb hinzufügen
    Warenkorb.ListObjects(1).DataBodyRange(Zeile).Value = Selection.Value

End Sub