Offset Werk niet naar behoren

[Excelvbas01]

Beste leden,
Ik gebruik al een tijdje deze formule om gegevens in te laden in tekstboxen. Er is alleen een probleem. Er worden niet alle gegevens getoond. Het gaat mis op het moment dat klantnummer niet op volgorde is. Voorbeeld:
Klantnuumer:
1001
1001
1001
Dit gaat goed.

Op het moment dat er aan ander klantnummer tussen komt dan gaat het mis. Dan worden niet alle gegevens getoond.
Voorbeeld:
Klantnummer:
1001
1001
1005
1001
Dit gaat niet mis. Alleen de eerste twee nummers worden getoond. Ik heb dit opgelost door elke keer handmatig te sorteren.
Weet iemand een oplossing. Alvast bedankt.

Private Sub ZoekNo_Change()
If Len(ZoekNo) = 4 Then
For i = 1 To 3
Me("textbox" & i) = ""
Next
With Sheets("blad1")
Set Post = Range("a:a").Find(ZoekNo.Value)
If Not Post Is Nothing Then
    TextBox1 = Post.Offset(, 4).Value
    'End If
If Post.Offset(1).Value = Post.Value Then
    TextBox2 = Post.Offset(1, 4).Value
  End If
  If Post.Offset(2).Value = Post.Value Then
    TextBox3 = Post.Offset(2, 4).Value
    End If
If Post.Offset(3).Value = Post.Value Then
    TextBox4 = Post.Offset(3, 4).Value
    End If
If Post.Offset(4).Value = Post.Value Then
    TextBox5 = Post.Offset(4, 4).Value
    End If
 Else
 MsgBox " Ingevoerde postcode is niet aanwezig"
 ZoekNo = ""
 End If
  
End With
End If
End Sub

 

[edmoor]

.Offset is overbodig.
Kijk naast .Find ook eens naar .FindNext

 

[emields]

kijk eens of je hier wat kan mee doen