Hab nen einfacheren weg gefunden
With Tabelle1.QueryTables.Add(Connection:="TEXT;C:\Temp\Datei.csv", Destination:=Tabelle1.Range("A1"))
.TextFileSemicolonDelimiter = True .Refresh
End With