Ich habe folgende Lösung in der Recherche gefunden:
Sub ImportText()
Workbooks.OpenText FileName:="h:\bvasesa 2710041.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, OtherChar:="|", _
FieldInfo:=Array(1, 1)
End Sub
Text in der Textdatei:
14030251004AA AA EPAK=20926EBES=02167
3403028049990423000000001181004Wildmann Werner 10012011007910000000000001
340302804999042300001014440000110Muster Hubert 5794220154101001
Textimport in der Exceldatei:
14030251004AA AA EPAK=20926EBES=0216_________________________________7
3403028049990423000000001181004Wildmann Werner 1001201100791000000000000____1
340302804999042300001014440000110Muster Hubert 579422015410100___________1
Warum wird mir bitte das letzte Zeichen abgeschnitten? 7, 1, 1
Das komplette Ergebnis sollte nur in der Spalte A eingetragen werden.
Danke
Josef