Zoeken tot letter in Cel

[goedlichtJoost]

Hallo allemaal,

Ik heb een cel met eerst een rekeningnummer en daar achter de naam van een persoon. Dit staat in 1 cel. Dit zou ik graag willen splitsen.
Nu is een rekening nummer niet altijd even lang. dus ik ben op zoek naar een functie die zoekt naar de eerste letter in mijn string.

vb:

A1 = 12347861235 J.Appelboom

gewenst resultaat
B1 = 12347861235
C1 = J.Appelboom

Is dit mogelijk?

Mvg Joost

 

[Niels28]

in B1

=LINKS(A1;VIND.SPEC(" ";A1;1)-1)

in c1

=RECHTS(A1;LENGTE(A1)-VIND.SPEC(" ";A1;1))

Niels

 

[goedlichtJoost]

En stel nu dat er geen spatie tussen getallen en letters staan?

 

[rebmog]

Ik kan het mis hebben, maar ik denk dat het dan niet gaat lukken met standaard Excel-functies. Met twee kleine User Defined Functions gaat het in ieder geval wel:

Function banknummer(rng As Range) As String
    For i = 1 To Len(rng)
        If IsNumeric(Mid(rng, i, 1)) Then
            banknummer = banknummer & Mid(rng, i, 1)
        Else
            Exit For
        End If
    Next
End Function

Function rekeninghouder(rng As Range) As String
    For i = 1 To Len(rng)
        If Not IsNumeric(Mid(rng, i, 1)) Then
            rekeninghouder = Trim(Mid(rng, i))
            Exit For
        End If
    Next
End Function

Rebmog

 

[Niels28]

Dan heb je de voorwaarde van de vraag aangepast


zie bijlage

Bekijk bijlage cijfer-tekst splitsen.xlsm

Edit: te laat , oplossing is hetzelfde als rebmog ik gebruik alleen voor de naam een standaard excelformule

Niels

 

[Warme bakkertje]

Gebruik hiervoor Regular Expressions.

Function ExtractNumber(rC As Range) As String
    With CreateObject("VBSCRIPT.REGEXP")
        .Pattern = "[^0-9]"
        .Global = True
        .IgnoreCase = True
        ExtractNumber = .Replace(rC.Value, "")
    End With
End Function

Function ExtractAlpha(rC As Range) As String
    With CreateObject("VBSCRIPT.REGEXP")
        .Pattern = "[^a-z\.\-\s]"
        .Global = True
        .IgnoreCase = True
        ExtractAlpha = .Replace(rC.Value, "")
    End With
End Function

 

[goedlichtJoost]

Bedankt,

Het is gelukt.