Probleem met zoeken in Listbox

[Atwist]

Hallo

Met mijn kennis kan ik de fout in de beide zoek opdrachten.

TB_01 moet op nummer zoeken in kolom A.
TB_02 moet op naam zoeken in kolom B.

Helaas gebeurt dit niet.

Maar ik zie het niet.

 

[snb]

Lukt hier prima met:

Private Sub TB_01_Change()
  On Error Resume Next
  LB_00.Value = TB_01
End Sub

Private Sub TB_02_Change()
    For j = 0 To UBound(LB_00.List)
       If LB_00.List(j, 1) = TB_02.Value Then Exit For
    Next
    On Error Resume Next
    LB_00.ListIndex = j
End Sub

 

[Atwist]

Inderdaad werkt het voor zoek op nummer (kolom A)

Maar het lukt niet voor zoeken op naam (kolom B)

Maar de code is wel verrekt klein

 

[snb]

Op naam in vorige bijdrage toegevoegd.

PS. Ik zou HD-1005 geen 'nummer' noemen.

 

[Atwist]

Private Sub TB_02_Change()
    For j = 0 To UBound(LB_00.List)
       If LB_00.List(j, 1) = TB_02.Value Then Exit For
    Next
    On Error Resume Next
    LB_00.ListIndex = j
End Sub

Werkt bij mij helaas niet

 

[Atwist]

Op naam in vorige bijdrage toegevoegd.

PS. Ik zou HD-1005 geen 'nummer' noemen.

Daar ben ik ook achter gekomen, ik ga nu proberen om de listbox te vullen zonder de eerste 3 tekens

 

[HSV]

Werkt bij mij helaas niet

Lampie <> lampie

 

[Atwist]

Het was inderdaad donker aan deze kant

Ben er achter dat je de complete naam moet intikken ipv een paar letters.

Mijn excuus