Zoeken zelfde namen Userform

[don42]

Beste helpers,

heb een vraag over het zoeken in een listbox
in de bijlage een voorbeeld bestand van een ledenlijst
via de knop invoeren start Userform1
tik je dan een naam in (Textbox met de tekst Zoeken op ...)
zoals die in de listbox of kolom A staan
dan komen de gegevens keurig in de desbetreffende textboxen
maar nu...
Als een voornaam vaker voorkomt (Heb in het bestandje 3 x Henk gezet)
dan start Userform2 met enkel 3 x Henk
ik zou dan graag alle gegevens willen zien zoals dat in de listbox van Userform1 het geval is

Wie kan en wil mij hier mee helpen?

Don

 

[Jack Nouws]

Zo misschien?

  With Me.ListBox1
    .List = UserForm1.Listbox.List
    .ColumnWidths = "60;70;50;120;50;70;120;80;60;50"
       
      For j = .ListCount - 1 To 0 Step -1
        If UCase(.List(j, 0)) <> UCase(TextBox1.Value) Then .RemoveItem (j)
      Next j
  End With

 

[don42]

Dank je wel voor je hulp
dit werkt prima.