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