Waarde scheiden in tekst en getallen

[wlsandman]

Ik zit met een vergelijkbaar probleem als in dit topic: http://www.helpmij.nl/forum/showthread.php?t=279547&highlight=tekst+getallen

Alleen nu heb ik een klantnaam: Otte, J. F501682

En daar wil ik alleen de tekst van, dus niet de nummers (eigenlijk het omgekeerde wat wigi in bovenstaand topic had geschreven!).

Dus ik wil de tekst los van het nummer, en als het eventueel mooi kan, dan zou ik het veld gescheiden willen zien in een klantnaam (de tekst) en klantnummer (de cijfers).

Ik heb wel de functies met Deel en Vind.Alles geprobeerd, maar door de diversiteit aan klantnamen (qua lengtes) werkte dat niet.

Alvast bedankt :thumb:

 

[wlsandman]

Het gaat dus om deze code:

Function huisnummer(str As String) As Long
    Dim i As Integer
    For i = 1 To Len(str)
        If IsNumeric(Mid(str, i, 1)) Then huisnummer = huisnummer & Mid(str, i, 1)
    Next
    huisnummer = Val(huisnummer)
End Function

Hierin zou: IsNumeric misschien vervangen moeten worden door een functie die kijkt of er tekst in een cell staat en dat er allemaal uitfiltert....

 

[Wigi]

Function klant(str As String) As String
    Dim i As Integer
    For i = 1 To Len(str)
        If Not IsNumeric(Mid(str, i, 1)) Then klant = klant & Mid(str, i, 1)
    Next
End Function

Zo?

 

[wlsandman]

La maar, via google al een mogelijke oplossing gevonden....

 

[Wigi]

Vertel maar.

 

[wlsandman]

Vertel maar.

=LINKS(B1;VIND.ALLES("$";SUBSTITUEREN(B1;" ";"$";LENGTE(B1)-LENGTE(SUBSTITUEREN(B1;" ";""))))-1)

Via google kwam ik dus bovenstaande formule tegen, en die is toevallig dezelfde als in het topic waar ik naar verwees

 

[Wigi]

Dan krijg je wel als resultaat

Otte, J.

en niet

Otte, J. F

Wigi

 

[wlsandman]

Dan krijg je wel als resultaat

Otte, J.

en niet

Otte, J. F

Wigi

Klopt

Maar dat is ook de bedoeling, de naam van de klant is namelijk Otte, J

Die F staat voor een bepaald administratienummer op een veiling. Zo heb je ook klanten als De Fruithof A11424/N78605
Dit wordt dan:
De Fruithof

 

[Wigi]

Als het werkt zijn wij ook content.

Succes ermee.

 

[wlsandman]

Als het werkt zijn wij ook content.

Succes ermee.

:thumb:
Bedankt iig