Cel waarden splitsen op een enter

[detroyni]

Hey,

Ik heb een cel waar meerdere url's inzitten gescheiden door een enter.
Nu wil ik die graag uitsplitsen naar rechts

Of onder mekaar mag ook maar dan moeten de labels mee gecopieerd worden.
Voorbeeld meegeleverd.

Alvast bedankt voor de hulp.

Ik had onderstaande al even geprobeerd maar een no show ;-)

Sub jvr()
jv = Sheets(1).Cells(1, 1).CurrentRegion
With CreateObject("scripting.dictionary")
For i = 1 To UBound(jv)
.Item(jv(i, 1)) = .Item(jv(i, 1)) & jv(i, 3) & "|" & jv(i, 4) & "|" & jv(i, 5) & "|"
Next
Sheets(2).Cells(1, 1).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
Sheets(2).Cells(1, 2).Resize(.Count).TextToColumns Sheets(2).Cells(1, 2), 1, , , , , , , 1, "|"
End With
End Sub

 

[JEC.]

Die macro komt me bekend voor

Hier een optie voor je nieuwe probleem

Sub jec()
 ar = Cells(1, 1).CurrentRegion
 ReDim jv(UBound(ar), 20)
 
 For i = 1 To UBound(ar)
    For j = 1 To UBound(ar, 2)
       For Each it In Split(ar(i, j), vbLf)
         jv(i - 1, x) = it
         x = x + 1
       Next
    Next
    x = 0
 Next
 With Cells(1, 1)
   .CurrentRegion.ClearContents
   .Resize(UBound(ar), 20) = jv
 End With
End Sub

 

[detroyni]

Hey JVeer,

Bedankt voor het snelle antwoord maar de functie lijkt niet het gewenste resultaat af te leveren.
Heb je misschien nog eenander idee?

Nico

 

[appie36]

Probeer het is met een powerquery, die kan op alle soorten van tekens een kolom splitsen. Kan je zelf aangeven.

In de taakbalk naar gegevens, dan uit tabel kiezen. De rest volgt vanzelf