Bepaalde gegevens in 1 cel naar kolommen

[peter59]

Hallo,

Ik ben op zoek naar een formule en/of VBA code om bepaalde gegevens vanuit 1 cel op te splitsen naar 2 kolommen.
Zie bijlage voor, hopelijk, meer duidelijkheid.
Zelf heb ik al vanalles geprobeerd zoals Tekst naar kolommen.
Met de formule =DEEL( ... ;VIND.SPEC( enz. enz.
Maar helaas.

Dank alvast voor het meedenken.

Mvg
Peter

 

[JEC.]

Zet deze achter een module

Function jveer(cell, i)
jveer = Split(cell, " - ")(i)
End Function

Voer vervolgens in als

=jveer($A2;KOLOM(A1))

en trek een keer naar rechts

 

[peter59]

Hallo JVeer

Dank alvast voor het meedenken.
Het is bijna goed.
Zie bijlage voor waar het nog net niet goed gaat.

Mvg
Peter

 

[edmoor]

Maak er dit van:

jveer = Split(Split(cell, " - ")(i))(0)

 

[JEC.]

@Edmoor, dan gaat de eerste mis

Zo gaat ie goed.

jveer = IIf(i = 1, Split(cell, " - ")(i), Split(Split(cell, " - ")(i))(0))

 

[edmoor]

Kan het ook beter aan jou laten
Maar het rode woord was weg

 

[JEC.]

Maar het rode woord was weg

Dat staat vast:d

 

[peter59]

Geachte JVeer en Edmoor

Heel hartelijk dank voor jullie bijdrage.
En ja, de functie van JVeer werkt als een tierelier.

Nogmaals dank voor jullie hulp.

Mvg
Peter

 

[JEC.]

Mooizo

Nog eentje voor de fun

jveer = Replace(Split(WorksheetFunction.Substitute(cell, " ", " - ", UBound(Split(cell, " "))), " - ")(i), "- ", "")

 

[HSV]

Of:

jveer = Split(Split(cell, " - ")(i), IIf(i = 1, " - ", " "))(0)