Gruppe
Allgemein
Problem
Ein mit Zeilenumbrüchen eingegebener Zelltext in Zellen aufgeteilt werden.
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