Huisnummers uit adres halen

[alfred007]

Ik wil een kolom gaan vullen met de combinatie van Postcode en huisnummer.
Daartoe ben ik op zoek naar een formule/truc om het huisnummer uit een adres te halen.
Dus: Paul Potterstraat 118a moet "118" opleveren.

Wie kan mij helpen???

 

[wilbert1967]

ten eerst het huisnr in je voorbeeld is 118a
je kan volgens mij laten zoeken op spatie en dan checken of het volgende karakter een cijfer is
deel(a1;vind.spec(" ";a1,1)+1;lengte(a1)-vind.spec(" ";a1,1)

 

[LucB]

Alfred.

Zet deze funktie in een module.

Function LaatsteCijfers(CellIn As String) As Long
For Count = 1 To Len(CellIn)
If Not Mid(CellIn, Count, 1) Like "[0-9]" Then Mid(CellIn, Count, 1) = " "
Next Count
CellIn = Application.Substitute(CellIn, " ", "")
LaatsteCijfers = Right(CellIn, 3) 'verander de 3 in 1,2 of 4.
'Typ in bv B1 =LaatsteCijfers(A1)
End Function