[VBA Excel] adres zoeken in sheet

[jordan2k]

Heb een adressenbestand met zo'n 19000 adressen
B C D
unieknr: Straatnaam: huisnr:
xxxxxxx Kastanjestr 18

nu heb ik al een formpje waarmee je op dat unieke nr. kunt zoeken.
maar nu moet het ook mogenlijk zijn om op straatnaam & huisnr. te zoeken.

en nu kom ik er niet hellemaal uit om op kolom C & D tegelijk te zoeken

code:

tezoeken = VHE.Range("C" & n).Value
If Not InStr(1, tezoeken, gezocht, 1) = 0 Then

If m = 1 Then
Label6.Caption = VHE.Range("B" & n).Value
End If

Dus aan de hand van straatnaam en huisnr moet hij het uniekenr. weergeven.

Nu zou hij ook in kolom D moeten zoeken alleen kan niet vinden hoe dat moest.

[ATS]

In feite moet je testen op twee waarden, iets in de zin van:

code:

tezoekenStraat = VHE.Range("C" & n).Value
tezoekenNummer = VHE.Range("D" & n).Value
If (Not InStr(1, tezoekenStraat, gezochtStraat, 1) = 0) AND (Not InStr(1, tezoekenNummer, gezochtNummer, 1) = 0) Then

If m = 1 Then
Label6.Caption = VHE.Range("B" & n).Value
End If

Bovenstaande is overigens niet compleet. Waar worden bijvoorbeeld m en n geïnitialiseerd? Maargoed, het gaat om het idee.

[jordan2k]

n is de optelende waarden zodat het mogenlijk wordt om van Cel C2 tot aan C18633 te gaan.
m is meer van waneer de tezoeken string waar is dan gaan we het unieke nr weergeven.

ik gaat dit eens proberen. [Bedankt het werkt ]

[ Voor 7% gewijzigd door jordan2k op 29-06-2004 08:40 ]