Getal en letters splitsen

[jansen18]

Ik heb in een kolom getallen en letters staan en die wil ik door middel van een macro kunnen splitsen naar twee kolommen.

Bijv kolomA:
1a
1/2a
2b
3a
4
4/3b
4b
5a
6
7a
7/8v
8a

Kolom B:
1
1/2
2
3
4
4/3
4
5
6
7
7/8
8

Kolom c:
a
a
b
a

b
b
a

a
v
a

Is dit mogelijk???

 

[Joske2000]

Ja :

in kolom B :

=LINKS(A1;LENGTE(A1)-LENGTE(ALS(ISGETAL(RECHTS(A1;1)*1);"";RECHTS(A1;1))))

in kolom C :

=ALS(ISGETAL(RECHTS(A1;1)*1);"";RECHTS(A1;1))

Joske

 

[jansen18]

Bedankt voor je snelle reactie.
Is hier ook een macro van te maken waardoor het automatisch kolom B en V vult met de juiste waarden?
Kolom A kan meerdere rijen hebben. Dat hangt van het bestand af.

 

[Joske2000]

Je kan beide formules gewoon doortrekken/kopiëren naar beneden

Als je wil kan hiervoor ook een macro worden gemaakt, dan horen we het wel.

Joske

 

[jansen18]

Ik wil graag de formules in een macro hebben zodat ik de splitsing dmv een macro kan starten.
Ik weet alleen niet hoe ik de macro moet maken....sorry.

 

[Roncancio]

In VBA:

Sub Getallen_Splitsen()
Dim lRij As Long
    lRij = 1
    While Range("A" & lRij).Value <> ""
        If IsNumeric(Right(Range("A" & lRij).Value, 1)) = False Then
            Range("B" & lRij).Value = Left(Range("A" & lRij).Value, Len(Range("A" & lRij).Value) - 1)
            Range("C" & lRij).Value = Right(Range("A" & lRij).Value, 1)
        Else
            Range("B" & lRij).Value = Range("A" & lRij).Value
        End If
        lRij = lRij + 1
    Wend
End Sub

Met vriendelijke groet,


Roncancio

 

[jansen18]

Ontzettend bedankt! Dit is het helemaal.

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost

 

[jansen18]

Hallo Roncancio.
Nog bedankt voor je hulp maar hoe kan ik bijv. 1abcd van elkaar splitsen met de macro?
ALs resultaat wil ik hebben in kolom J: "1" en in kolom K: "abcd".
Ik wil dus eigenlijk getallen scheiden van letters.
Zou je me nog een keer willen helpen?