Selection.TextToColumns Destination:=Range(Cells(1, 1), Cells(letzteZeile, letzteSpalte)), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=
True
, Tab:=
True
, _
Semicolon:=
False
, Comma:=
False
, Space:=
True
, Other:=
True
, OtherChar:= _
"."
, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=
True