Hallo Wissende,
dieser Code
Columns("A:A").TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(2, 2), _
Array(9, 2), Array(15, 2), Array(23, 2), Array(27, 2), Array(31, 2), _
Array(32, 2), Array(62, 1), Array(73, 9), Array(85, 9), Array( _
95, 9...