Hi Gast,

funktionieren tuts schon mal. Hab den Code dafür allerdings noch etwas modifizieren müssen:

Sub DataImport()

Dim X As Integer, Zeile As String, lr As Integer

Open txtFileName For Input As #1

Do While Not EOF(1)
    X = X + 1
    Line Input #1, Zeile
    Cells(X, "A") = Zeile

Loop
Close #1

lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & lr).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
        TrailingMinusNumbers:=True

End Sub

Was mich allerdings trotzdem interessieren würde, ist wie ich mit meinem obigen Code zum Ziel kommen könnte. Es muss etwas mit der Deklaration von Zeile als String zu tun haben, die beim Umschreiben der Zahlen nicht mehr aufgehoben wird. Gibt es hier noch andere Möglichkeiten beim Split auf andere Datenformate Rücksicht zu nehmen?

Nochmal vielen Dank und Grüße,

Anja