zescijferig getal uit tekst halen

[cortex]

Beste experts,

Ik probeer middels een formule een zescijferig getal uit een willekeurige tekst in een nieuwe kolom als resultaat weer te geven.
De teksten bestaan uit verschillende lengtes en de plaats van het zescijferig getal is willekeurig.
Zie voorbeeld. Denken jullie een formule te vinden, want een zoektocht heeft geen resultaat opgeleverd.
Ik gebruik Excel 2007.

Hartelijke groet,
Cortex

 

[Cobbe]

Zo ook goed?

of met een matrixformule:

=DEEL(A2;MIN(ALS(ISGETAL(DEEL(A2;RIJ(INDIRECT("1:"&LENGTE(A2)));1)*1);RIJ(INDIRECT("1:"&LENGTE(A2)));""));6)

invoeren via Cntrl shft enter

 

[alphamax]

Met regular expressions, accepteer alleen als er precies 6 cijfers zijn, niet meer en niet minder.

Public Function ZesCijfers(strRegel As String) As Long
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\b\d{6}\b"
        ZesCijfers = CLng(.Execute(strRegel)(0).Value)
    End With
End Function

 

[cortex]

Opgelost

Zeer bedankt voor jullie creatieve oplossingen. Ik ben zeer geholpen.
Mooi weekend toegewenst!

Met vriendelijke groet,
Cortex

 

[cortex]

Onopgelost

Helaas te vroeg gejuicht:-(
Bijgesloten het juiste document. Per abuis het verkeerde bestand geupload.

Appeltje eitje voor jullie. Opdracht blijft het zelfde echter begint de zin altijd met B2B of B2C

Grtz,
Cortex

 

[Cobbe]

De oplossing van Alphamax is daar perfect voor geschreven:

Public Function ZesCijfers(strRegel As String) As Long
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\b\d{6}\b"
        ZesCijfers = CLng(.Execute(strRegel)(0).Value)
    End With
End Function

 

[cortex]

Kan het ook in een formule, ik ben niet zo thuis in macro's nl?

 

[Cobbe]

Ik denk het wel:

=DEEL(A2;MIN(ALS(ISGETAL(DEEL(A2;RIJ(INDIRECT("1:"&LENGTE(A2)));6)*1);RIJ(INDIRECT("1:"&LENGTE(A2)));""));6)

Matrixformule ==> ctrl shft enter

 

[cortex]

Dat was hem. Zeer bedankt en erg tevreden bovendien. Mijn complimenten!

Grtz, Cortex