Cijfers uit tekst zoeken

[Georgyboy]

Goeie avond,

Kan met cijfers uit een tekst halen met een formule?

Vb : formule in Cel A2 -> zoeken cijfers of getal in cel B2

Rare vragen hé!

Groeten,
Georgyboy

 

[popipipo]

Hier een oplossing via VBA
Eerlijk gezegd hij is niet van mij maar ik had hem bewaard toen ik hem tegen kwam.

 

[HSV]

Deze met een formule.
Niet van mezelf, maar met een kleine aanpassing werkend gemaakt op jouw bestandje.

 

[bandito bob]

Met een formule kan het ook, voor B2:

De uitkomst is alle gegevens vanaf het eerste cijfer t/m het laatste cijfer.

=DEEL(B2;MIN(ALS(ISFOUT(DEEL(B2;RIJ($1:$40);1)*1);"";RIJ($1:$40)));MAX(ALS(ISFOUT(DEEL(B2;RIJ($1:$40);1)*1);"";RIJ($1:$40)))-MIN(ALS(ISFOUT(DEEL(B2;RIJ($1:$40);1)*1);"";RIJ($1:$40)))+1)

Let op!! Matrix formule, afsluiten met CTRL+SHIFT+ENTER.

 

[bandito bob]

Deze met een formule.
Niet van mezelf, maar met een kleine aanpassing werkend gemaakt op jouw bestandje.

Mooie formule...

Gelijk weer wat geleerd!:thumb:

 

[Georgyboy]

Waw wat mooie fantastiche reacties !

probeer dit morgen uit !

jullie zijn geweldig :thumb:

Georgyboy

 

[HSV]

Mooie formule...

Gelijk weer wat geleerd!:thumb:

Zoals ik al vemelde Paul, niet van mezelf, maar met een nog iets andere aanpassing naar de rijnummer.

=1*DEEL(B2;VERGELIJKEN(WAAR;ISGETAL(1*DEEL(B2;RIJ($B$1:$B$100);1));0);AANTAL(1*DEEL(B2;RIJ($B$1:$B$100);1))+1)

Er zat één spatie teveel in de uitkomst.

 

[bandito bob]

Ook al is hij niet van jou, toch vond ik de formule mooi..

 

[GiMe]

Of met een UDF (ook niet van ondergetekende !)

 

[Cobbe]

Met de Asap Utilities is dat ook zo gepiept.

=ASAPEXTRACTNUMBERS(A1)

Cobbe

 

[HSV]

Asap

Hier heb ik wel een vraag over Cobbe.

Is deze add-in in het Nederlands als je de Nederlandse Excel versie hebt?

Het lijkt me verrekte handig deze tool, maar mag ook graag een beetje puzzelen voor een oplossing.

 

[Cobbe]

Deze addin is ook in het Nederlands .
Geloof me maar zelfs met deze Asap Utilities blijft er nog te puzzelen over.

Cobbe

 

[Warme bakkertje]

Nog een UDF-je

Function retNumeric(ByVal myStr As String) As Double
Dim b() As Byte, I As Long, myNum As String
b = StrConv(myStr, vbFromUnicode)
For I = LBound(b) To UBound(b)
    Select Case b(I)
        Case 46, 48 To 57
            myNum = myNum & ChrW$(b(I))
    End Select
Next
retNumeric = myNum
End Function