Kolom A splisen in kolom A en B

[Tweety1]

Ik heb in kolom A tekst staan die ik graag gesplits wil hebben. Bevat kolom A ", " dan gedeelte na ", " verplaatsen naar kolom B en bij kolom A ", " verwijderen.

Voorbeeld

Bekijk bijlage Splitsen.xlsm

mvg

Kasper

 

[Elsendoorn2134]

Kasper,

Selecteer A3 t/m A12. Ga in het lint naar "Gegevens", "Hulpmiddelen voor gegevens", "Tekst naar kolommen".
Kies voor "Gescheiden", en klik op "Volgende".
Vink Overige aan en vul in een komma. Klik op "Voltooien".

Dan vind de splitsing automatisch plaats.

Veel Succes.

 

[Tweety1]

Thanks maar hoe haal ik dan de 1e spatie weg in kolom B

 

[Elsendoorn2134]

Kasper,

Is wat lastiger, want je kunt maar een teken opgeven in dit systeem.
Je kunt het ook met VBA oplossen.
Hierbij een voorbeeld.

Public Sub Splitsen()

Dim nTeller As Integer
Dim aTekst() As String

With Sheets("Blad1").Range("A3")
    Do While nTeller <= Range("A60000").End(xlUp).Row   'Doorloop hele kolom A
        If .Offset(nTeller, 0) <> "" Then               'Overslaan als cel leeg is
            aTekst = Split(.Offset(nTeller, 0), ", ")   'Splits cel met ", " als deler
            If UBound(aTekst) > 0 Then                  'Als er gesplitst is print dan de twee kolommen
                .Offset(nTeller, 0) = aTekst(0)         'Kolom 1
                .Offset(nTeller, 1) = aTekst(1)         'Kolom 2
            End If
        End If
        nTeller = nTeller + 1                           'Ga naar de volgende cel in de range
    Loop
End With
End Sub

Veel Succes.

 

[Tweety1]

Het werkt. Bedankt