Hi Leute,

irgendwas habe ich hier falsch gemacht: Fehler liegt beim fettgedruckten. 

Bonus: Kann man den Dateipfad auch abfragen? (falls er sich  mal ändert)

Sub copy_data_from_workbook()

Dim sPath As String
Dim wbSource As Workbook
'Datapath from Source
sPath = "C:\[...]..xlsx"
'Open Workbook
Set websource = Workbooks.Open(sPath)
'Data copy and paste
wbSource.Worksheets(2).ListObjects("myTable").Range.Copy ThisWorkbook.Worksheets(2).ListObjects("myTable")
'Close Workbook
wbSource.Close SaveChanges:=False

End Sub

DANK mIKEY