Option Explicit
Sub Beispiel()
Dim strFilename As String
strFilename = "X:\Beispiel.txt"
If Dir$(strFilename) = "" Then
Call MsgBox("Die Datei '" & strFilename & "' wurde nicht gefunden.", vbExclamation)
Exit Sub
End If
With Worksheets("Tabelle1")
With .QueryTables.Add("TEXT;" & strFilename, .Range("A1"))
.TextFilePlatform = 1252
.TextFileSpaceDelimiter = True
.TextFileDecimalSeparator = ","
.TextFileThousandsSeparator = "."
.TextFileTrailingMinusNumbers = True
Call .Refresh(BackgroundQuery:=False)
Call .Delete
End With
End With
End Sub