AW: String(Zahlen) in Spalten aufteilen
30.09.2019 23:44:51
Daniel
kann man ausnutzen, aber was ist dann das erste Komma, oder das sechste?
wenn das Komma das Trennzeichen ist, müsste konsequenterweise der Punkt als Dezimalzeichen verwendet werden.
Oder die Zahlen müssten als Text in Anführungszeichen geschrieben werden, damit man erkennen kann, ob ein Komma ein Trennzeichen ist oder zum Wert gehört.
für dich wäre der Workaround, dass du mit einer Schleife durch den Text gehst, die Kommas zählst, an der Anzahl ermittelst ob es ein Dezimal- oder ein Trennzeichen ist, bei einem Trennzeichen das Komma durch ein anderes Trennzeichen ersetzt und dann mit dem so überarbeiteten Text weiter arbeitest.
also mal als beispiel für deine Beschreibung (jedes dritte Komma ein Trennzeichen):
txt = "....."
for i = 1 to len(txt)
if mid(txt, i, 1) = "," then
z = z + 1
if z mod 3 = 0 then mid(txt, i, 1) = ";"
end if
next
Range("A1").Value = txt
Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), DecimalSeparator:="," _
, ThousandsSeparator:=".", TrailingMinusNumbers:=True
Gruß Daniel