VBA Excel userform opzoeken van plaats op basis van postcode (dubbele waarden)

Status
Niet open voor verdere reacties.
P

PolBE

Gebruiker
Lid geworden
12 okt 2016
Berichten
53
Beste forum

Ik ben al goed geholpen door enkele van jullie maar ik stoot op een ander probleem.
In België hebben niet alle gemeenten en steden een uniek postnummer. Dit maakt dat bij het kiezen van een postnummer (bv 2040) de eerste plaats/rij in het tekstvak 'Plaats' komt te staan. Ook al kies je de 2° of 3° rij steeds gaat het fout.
Nu is mijn vraag hoe je dit kan oplossen.
Een voorbeeldje in bijlage maakt het wel duidelijk. Kies in 'Postcode' voor 2040 Zandvliet en je zal zien dat na 'enter' toch Antwerpen wordt ingevuld bij 'Plaats' en niet Zandvliet. En dat is juist het probleem. Ik begrijp wel waarom maar weet niet hoe dit op te lossen.
Bedankt

PS: voor de duidelijkheid heb ik van 'Plaats' ook een 'combobox' gemaakt die gesorteerd is op '¨Plaats' maar dit ook een gewoon een tekstvak worden

Bekijk bijlage Dubbele waarden.xls
 
Vul de combobox zo ipv via Rowsource
Code: 
Private Sub UserForm_Initialize()
  ComboBoxPostcode.List = Sheets("data").Cells(6, 3).CurrentRegion.Value
End Sub

Zo krijg je de juiste plaats.
Code: 
ComboBoxPlaats.Value = ComboBoxPostcode.Column(1)
 
VenA

Bedankt je hebt me weer op weg geholpen.

Is er nu ook een mogelijkheid om de lijst automatisch te openen bij activering, zodat de postcodes te zien zijn als de cursor er staat, zonder dus op het pijltje te klikken?

Groetjes
Pol
 
Bedoel je dit?
Code: 
 ComboBoxPostcode.DropDown
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan