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
|