mehrzeilige Zelle in zwei Spalten separieren

[BoskoBiati]

Hi,

kann ich die Formel denn auch Nutzen wenn ich unterschiedlich lange Namen und Adressen habe ?

probiers doch aus!

[Ralf A]

...wie wärs mit einem Makro? Nach Deiner Vorlage erstellt....

Code:

Sub Trennen()
Dim arr, var, rng As Range
Application.EnableEvents = False
Set rng = Tabelle1.UsedRange.Columns(1)

For Each var In rng.Rows
If var.Row > 1 Then
    arr = Split(var.Value, Chr(10))
    var.Value = arr(0)
    var.Offset(, 1).Value = arr(2)
    var.Offset(, 2).Value = arr(3)
End If
Next

    With Columns("A:C")
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .Orientation = 0
        .ShrinkToFit = False
        .EntireColumn.AutoFit
    End With

Application.EnableEvents = True

End Sub

...hier werden auch noch Adresse und Ort getrennt...