Set-functie maakt van 1 automatisch 10

[Viking30]

De onderstaande code gebruik ik om automatisch de namen van leden bij hun paarnummer te zoeken. Het werkt goed behalve als ik ik nummer 1 invoer,
Hier maakt hij automatisch 10 van.

Wat doe ik fout?

Private Sub Txt_Paarnr_AfterUpdate()

Set zoekcel = Sheets("Ledenlijst").Range("Zoek_Paar").Find(frm_Uitslagen.Txt_Paarnr.Value, MatchCase:=True)
frm_Uitslagen.Cmb_Speler1.Value = Sheets("Ledenlijst").Cells(zoekcel.Row, 4).Value
frm_Uitslagen.Cmb_Speler2.Value = Sheets("Ledenlijst").Cells(zoekcel.Row, 6).Value

frm_Uitslagen.Txt_Percentage.SetFocus

End Sub

 

[VenA]

Kan ik zo niet beoordelen zonder het bestandje te zien.

 

[Viking30]

Hier is het bestand waar je om vroeg.

Bekijk bijlage Bridge Ranking.xlsm