Tekst uit getallen halen

[mat123]

Ik heb regelmatig grote bestanden waarin artikelnummers staan. Het vervelende hieraan is dat ze niet dezelfde lengte hebben, in een stuk tekst staan en een verschillende lengte hebben. Soms is er zelfs een letter aan toegevoegd. De meeste hebben een "." er tussen staan behalve bij artikel 1. Ik zou al enorm geholpen zijn als ik de artikelen met een "." uit de tekst kon halen. Kan iemand mij helpen ? Een voorbeeld is bijgevoegd.Bekijk bijlage Kopie van Uittrekken artikelnummer.xlsm

 

[snb]

Gebruik de UDF:

Function F_snb(c00)
   sn = Split(c00)
   For j = 0 To UBound(sn)
      If Val(sn(j)) = 0 Then sn(j) = "~"
   Next

   F_snb = Join(Filter(sn, "~", 0), "_")
End Function

 

[mat123]

Moet deze formule op zichzelf werken of moet ik deze in de reeds in het document aanwezige macro verwerken ?
Als ik hem zo gebruik dan komt er een popup met de melding "Blad1.splitsen of ThisWorkbook.splitsen". Als dan kies voor Uitvoeren dan verschijnt de melding "Door de toepassing of door object gedefinieerde fout".

 

[mat123]

Vraag nog niet opgelost.

 

[snb]

Heb je je ondertussen al een beetje verdiept in VBA, bijv. via een boek ?

 

[alphamax]

In cel J1.
Druk op (linker)ALT+F11 voor de code.