Finde første 4 cifrede tal i en tekststreng

Public Function FindPostnummer(tekst As String)
Dim I As Integer
For I = Len(tekst) - 4 To 1 Step -1
If IsNumeric(Mid(tekst, I, 4)) And Len(Trim(Mid(tekst, I, 4))) = 4 Then
FindPostnummer = Val(Mid(tekst, I, 4))
Exit For
End If
Next
End Function

måske såden nu skal værdien være større end 1000

Public Function FindPostnummer(tekst As String)
Dim I As Integer
For I = Len(tekst) - 4 To 1 Step -1
If IsNumeric(Mid(tekst, I, 4)) And _
Len(Trim(Mid(tekst, I, 4))) = 4 And _
Val(Mid(tekst, I, 4)) > 1000 Then
FindPostnummer = Val(Mid(tekst, I, 4))
Exit For
End If
Next
End Function

Alternativt til den elegante løsning kan du jo vælge at bruge denne her meget simple(!) regnearksformel :0)

=VENSTRE((HØJRE(HØJRE(A3;LÆNGDE(A3)-FIND(",";A3;1));LÆNGDE(HØJRE(A3;LÆNGDE(A3)-FIND(",";A3;1)))-FIND(",";HØJRE(A3;LÆNGDE(A3)-FIND(",";A3;1));1)));5)

jeg tænkte også i den retning, men hvis der nu ikke altid er 2 kommaer i sætningen, så virker det ikke

Det er simpelthen fint kabbak. ps. min kunde oplyste at der er postnumre der hedder 0900, så det blev første version vi valgte. Lægger du et svar så du kan få nogle velfortjente points ?

et svar ;-))

Tusind tak for hjælpen..

tak for point

Det var det hele værd :-)