Thema: Text gemäß Zeilenumbrüchen in Einzelzellen aufteilen

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge