Natuurlijk,waarom niet?

Is niet meer dan de correcte vorm van beleefdheid om dit te vragen vind ik. Toch?

Ik neem aan dat je userform nu past in jou scherm,klopt dit?

Als gegoten ( heb er de beamer op aangesloten ... hehehehehehe) neen neen nu past dit perfect.

En heb je nu nog problemen met de postcodes, gemeenten en deelgemeenten tijdens het opzoeken?

Heb momenteel geen problemen meer met de postcodes of gemeentes of deelgemeentes.

Maar mag ik zo vrij zijn om ook enkele vraagjes te stellen. ( deze zijn enkel en alleen om van te leren hoor. Dan weet ik voor de volgende keer waarom en waarom niet.)

- Waarom de code split en geen value?
- Waarom listbox ipv de optionbuttons.

Bestaat er de mogelijkheid om automatisch de namen af te gaan en welke nog niet zijn opgenomen in de statistieken deze er automatisch worden aan toegevoegd? Nu doe ik dit manueel.

Ja dat klopt Softaid, maar ik zou niet weten wat sunnybat voor ogen heeft.
Zonder antwoord van sunnybat is het koffiedik kijken.

@Della 

En dit is echt gemeend hoor. wat een pracht van een bestand is dit nu al geworden zeg.

@SoftAid (Theo) Kan je deze misschien ook vastpinnen zodat ook andere stofvreters er evenveel met bewondering naar kijken en met plezier mee werken.
Graag de vermelding dat dit voor 99% te danken is aan Della Jordan. zou ik echt fijn vinden mocht dit vermeld worden.
Ale voor alle duidelijkheid als Della hier mee akkoord is!

Er zullen misschien nog wel verbetering mogelijk zijn maar voor mij is dit toch al schitterend! behoeft zeker geen handleiding!

nogmaals mijn oprechte dank voor al het geleverde werk tijd en energie! ( en je komische/gevatte opmerkingen  )

Volgens jou vraag (voorbeeld) moet dit voldoende zijn.
Alles die op false staat is sowieso overbodig.
Sub CSV_Import()
Set ws = ThisWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
ws.Range("A1:H150").ClearContents
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))
    .TextFileParseType = xlDelimited
    .TextFileSemicolonDelimiter = True
    .Refresh
End With
End Sub


En hoe doorbreek je zo een While-Wend -Lus? Ik kan Excel enkel geforceerd beëindigen met Taakbeheer.

Met de heel weinige gegevens dat we hebben, het enige dat ik kan verzinnen is de escape toets een paar seconden indrukken.