Cijfersreeks uit een tekstcel op diverse posities

[plooiman]

Ik heb een aantal omschrijvingen die iedere keer anders zijn in een cel.
Maar in iedere cel staat wel een getal van 4 cijfers (ordernummers) die lopen van 0000 tm 9999.

Voorbeeld inhoud kolom:

Betalingskenmerk: 4250 rekening 123456789
Jan Piet Klaasen, grote weg 4, Duckstad ordernummer 8520.
Bestelling 1238
etc..

Hoe krijg ik deze info uit de cellen en in een aparte kolom? Het gaat om een reeks van 4 cijfers tussen 0000 en 9999, die niet op dezelfde positie staat in een cel. Ook kunnen er andere getallen in voorkomen.

Ik kom er niet uit. wie wel? thanks!

 

[TeuGem]

Hoi,

Ik denk 'wij' ook niet zoals je het omschrijft.
Het best is, om maar (een voorbeeld van) je excelbestand als bijlage mee te sturen.

 

[plooiman]

Hierbij de bijlage! hoop dat het zo helder is

 

[TeuGem]

Hoi,

Om middels een formule de gewenste nummers te 'destileren' moet er een uniek gemeenschappelijk kenmerk zijn.
In elk geval geldt dat NIET t.a.v. de lokatie van het nummer.
Het enige dat je als uniek zou kunnen aanmerken is, dat het om een nummer van vier cijfers gaat ......
Ik vrees dat dat onvoldoende is.
Maar geef hem graag voor de wizzkid hier die daar een oplossing voor heeft .....

 

[evertVB]

Deze functie:

Option Explicit
Public Function String2OrderNummer(StrOrderdata As String) As String
  Dim i As Integer
  Dim MyStringArray() As String
  
  String2OrderNummer = ""
  
  MyStringArray = Split(StrOrderdata, " ")
  
  For i = LBound(MyStringArray) To UBound(MyStringArray)
    If IsValidOrderNummer(MyStringArray(i)) Then
      String2OrderNummer = MyStringArray(i)
    End If
  Next i
End Function
Public Function IsValidOrderNummer(OrderNummer As String) As String
  IsValidOrderNummer = False
  
  If Len(OrderNummer) = 4 Then
    If IsNumeric(Mid(OrderNummer, 1, 1)) And _
       IsNumeric(Mid(OrderNummer, 2, 1)) And _
       IsNumeric(Mid(OrderNummer, 3, 1)) And _
       IsNumeric(Mid(OrderNummer, 4, 1)) Then
       IsValidOrderNummer = True
    End If
  End If
End Function

komt al aardig in de buurt.
Helaas struikelt hij nog over je tweede regel:

Jan Piet Klaasen, grote weg 4, Duckstad ordernummer 8520.

Maar wat is nou eigenlijk het ordernummer in bijvoorbeeld de regel:

Janssen ordernummer 4621/ telefoonnummer 050-388 2212

De functie zal in dit voorbeeld 2212 teruggeven.

 

[plooiman]

bedankt voor deze oplossing. Ik krijg hem alleen niet werkend in mijn tabblad, vraagt om macronaam. moet ik hem ergens anders plaatsen. (vba junior ) is het mogelijk dat je het voorbeeld upload met daarin de code? thanks

 

[evertVB]

Gelukkig had ik hem nog staan...

 

[plooiman]

Helemaal top! Hij werkt goed. Bedankt!