Option Explicit
Sub Test()
Dim rngData As Excel.Range
Call Workbooks.OpenText( _
Environ$("userprofile") & "\Downloads\Export.TXT", _
TextQualifier:=xlTextQualifierNone, _
Semicolon:=True)
Set rngData = ActiveWorkbook.Worksheets(1).Range("A1").CurrentRegion
Call rngData.Copy
Call ThisWorkbook.Worksheets("Tabelle1").Range("A1").PasteSpecial(xlPasteValues)
Call rngData.Worksheet.Parent.Close(SaveChanges:=False)
End Sub