Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Text gemäß Zeilenumbrüchen in Einzelzellen aufteilen
Problem
Ein mit Zeilenumbrüchen eingegebener Zelltext in Zellen aufgeteilt werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub Aufteilen()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=Chr(10), FieldInfo:=Array(1, 1)
End Sub