Hallo Forum,
habe folgendes Makro:
Sub öffnen1()
Workbooks.OpenText FileName:="Test.txt", Origin:=xlWindows, StartRow:=1 _
, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(13, 1 _
), Array(45, 1), Array(56, 1), Array(67, 1), Array(78, 1), Array(90, 1))
End Sub...