Meerdere regels in cel splitsen

[RobDenkt]

Ik heb een spreadsheet gekregen met een adresbestand. Nu staan er meerdere regels in 1 cel onder elkaar geplaatst d.m.v. Alt + Enter.
Wie kan mij helpen deze regels, (adres, postcode, plaats, land) d.m.v. een formule in afzonderlijke cellen te plaatsen?
Het aantal regels is niet in iedere cel gelijk.

 

[Cobbe]

Een voorbeeldje ware welgekome. !!

 

[OctaFish]

Met een kleine macro die eerst de <Alt>+<Enter> vervangt door een teken naar keuze. In het voorbeeldje is dat het Pijp symbool.

Sub testje()
Dim rng As Range, cel As Range
    
    Set rng = ActiveSheet.UsedRange
    For Each cel In rng.Cells
        cel.Value = Replace(cel.Value, Chr(10), "|")
    Next cel
    rng.TextToColumns rng.Offset(0, 1), xlDelimited, , , , , , , True, "|"
End Sub

Kan waarschijnlijk wel in één regel, zoals mensen als snb ongetwijfeld gaan demonstreren .

 

[snb]

@ your ....

Sub M_snb()
    Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, vbLf
End Sub

 

[RobDenkt]

Hierbij een voorbeeld van het bestand.

@OctaFish: de macro loopt vast op de laatste regel. Het verticale streepje wordt wel keurig overal geplaatst.