beste bogann,

kan je uw probleem met een bestandje duidelijker maken, want nu is dat zoeken naar de befaamde speld.

groeten

JC
 

De split functie in VBA is misschien nuttig voor dit probleem.

Ik weet op dit moment ook zelf geen oplossin. Als ik die wel vind laat ik het weten.

Wigi

Als ik die wel vind laat ik het weten.

Hello

Toch nog iets kunnen fixen vooraleer een pintje te gaan drinken:

Sub MacroAndy()
    Dim vntx, c As Range
    For Each c In Range("E2", Range("E2").End(xlDown))
        vntx = Split(Join(Split(c, Chr(10), -1), ""), Chr(13), -1)
        c.Offset(0, 1).Resize(1, UBound(vntx) + 1) = vntx
    Next
End Sub

Dit splitst de cellen naar de kolommen ernaast.

Hiermee kom je vast en zeker in de buurt van je oplossing.

Wigi