TXT Datei einlesen

Sub Importieren()
Dim ff As Long
Dim sFile As String
Dim sLine As String
Dim arr() As String
Dim row As Long
Dim col As Long
Dim activCell As Range
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
ff = FreeFile
sFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt", 0, "Wählen der Datei für  _
Import")
If sFile = "" Then
MsgBox "Der Dateiimport ist fehlgeschlagen!"
Else
'datei oeffnen
Open sFile For Input As #ff
'erste zelle markieren
Set activCell = Worksheets("Tab1").Range("A1")
Call activCell.Activate
While (Not EOF(ff))
Line Input #ff, sLine 'zeile einlesen
arr = Split(sLine, vbTab) 'an tabs aufspalten
For col = LBound(arr) To UBound(arr)
'relativ zur aktiven zelle den wert setzen
activCell.Offset(row, col).Value = arr(col)
Next 'i
row = row + 1
Wend
'schliessen
Close ff
'MsgBox "Die Daten wurden erfolgreich importiert!"
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub