Onjuiste uitkomst bij zoekopdracht

[Tir]

LS,

Graag enige hulp, bij mijn eerste vraag op dit forum.

Via VBA wordt in een groot leden bestand via een persoonsnummer gezocht naar de bijbehorende gegevens dit ging tot voor kort goed.
Er werd met maximaal vier cijfers gewerkt (tot 9999) Nu is er een update geweest waarbij ook persoonsnummers met meer dan vier cijfers worden gebruikt.
Als ik bijvoorbeeld het nummer 2434 intoets komen de gegevens van de persoon met nummer 772434 naar voren.

Hoe zorg ik ervoor dat alleen de gegevens van het ingevoerde nummer worden getoond?

Met vriendelijke groet,

Tir

 

[sylvester-ponte]

voeg bij find ..... ,lookat:=xlWhole toe

 

[Warme bakkertje]

Post om te beginnen de code al eens die je nu gebruikt om te zoeken.

 

[Tir]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("J13")) Is Nothing Then
On Error GoTo Eind
rij = Sheets("Doorea").Columns(1).Find(Sheets("FPT-opzoeken info").Range("J13").Value).Row

 

[sylvester-ponte]

zie post 2

 

[Warme bakkertje]

If Not Intersect(Target, Range("J13")) Is Nothing Then
On Error GoTo Eind
rij = Sheets("Doorea").Columns(1).Find(Sheets("FPT-opzoeken info").Range("J13").Value,,xlValues,xlWhole).Row

ps gebruik in't vervolg codetags rond je code. Ze verhogen de leesbaarheid en je code blijft netjes op zijn plaats staan. (selecteer je code en klik op # of zet [ code] voor je code en [ /code] na je code zonder de spaties weliswaar)

 

[Tir]

@ Warme Bakkertje, bedankt voor het zetten van de code op de juiste plaats en ik neem je tip betreffende de codetags mee voor de volgende keer
@ sylvester-ponte dank voor de door jouw aangeleverde code