Text in Spalten mit Absatz via VBA Code
16.11.2023 10:51:49
hockeyfreak
folgendes Problem, welches ich bisher nicht lösen konnte: Ich habe eine Exceltabelle, wo in einer Spalte Zellen mit Text stehen. Dieser Text muss in mehrere Spalten. ABER: die Funktion Text in Spalten funktioniert nicht, da Absätze in der Zelle sind.
So sieht die befüllte Zelle aus:
TEXT || FREITEXT
TEXT:
TEXT: FREITEXT
TEXT: FREITEXT
TEXT: FREITEXT
TEXT: FREITEXT
FREITEXT
TEXT: FREITEXT
Schön wäre es, wenn jeder Eintrag hinter dem in einer eigenen Spalte steht. Gerne auch via VBA Code. Mit dem Code bekomme ich auch kein brauchbares Ergebnis. Hat jemand eine Idee?
Sub TextInSpalten()
Range("R2").Select.TextToColumns _
Destination:=Range("S1:S1000"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:="", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
DecimalSeparator:=".", _
ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
End Sub
Gruß!