Sub Import_kurz()
Dim SourcePath As String
Dim FFnr As Integer
Dim TxtZeile As String
Dim AnzSp As Integer, i As Long
Const sep As String = vbTab
SourcePath = "Speicherort" & Format(Date, "ddmmyyyy") & ".txt"
FFnr = FreeFile
Open SourcePath For Input As #FFnr
i = 1
Do While Not EOF(FFnr)
Line Input #FFnr, TxtZeile
Do While InStr(TxtZeile, sep & sep) > 0
TxtZeile = Replace(TxtZeile, sep & sep, sep)
Loop
AnzSp = UBound(Split(TxtZeile, sep)) + 1
Range(Cells(i, 1), Cells(i, AnzSp)) = Split(TxtZeile, sep)
i = i + 1
Loop
Close #FFnr
End Sub