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 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

 

[VenA]

Is blijkbaar opgelost? Waarschijnlijk ben je ooit door iemand op het gebruik van inspringpunten gewezen. Volgens mij heb je dat dan niet helemaal goed begrepen.

 

[don42]

Vena
Help even wat bedoel je precies?

 

[OctaFish]

Was mij ook opgevallen; de code ziet er nogal knullig en onhandig uit.

[COLOR="#FF0000"]   If Sheets("Leden").Cells(Y, opt).Value = txtZoeken.Text Then
    txtVoornaam = Sheets("Leden").Cells(Y, 1).Value
     txtAchternaam.Value = Sheets("Leden").Cells(Y, 2).Value
      txtPersoneelsnummer = Sheets("Leden").Cells(Y, 3).Value
       txtAdres = Sheets("Leden").Cells(Y, 4).Value
        txtPostcode = Sheets("Leden").Cells(Y, 5).Value
         txtWoonplaats = Sheets("Leden").Cells(Y, 6).Value
          txtEmail = Sheets("Leden").Cells(Y, 7).Value
           TxtGeboortedatum = Sheets("Leden").Cells(Y, 8).Value
            txtTelefoon = Sheets("Leden").Cells(Y, 9).Value
             txtIndienst = Sheets("Leden").Cells(Y, 10).Value
End If[/COLOR]

    If Sheets("Leden").Cells(Y, opt).Value = txtZoeken.Text Then
        txtVoornaam = Sheets("Leden").Cells(Y, 1).Value
        txtAchternaam.Value = Sheets("Leden").Cells(Y, 2).Value
        txtPersoneelsnummer = Sheets("Leden").Cells(Y, 3).Value
        txtAdres = Sheets("Leden").Cells(Y, 4).Value
        txtPostcode = Sheets("Leden").Cells(Y, 5).Value
        txtWoonplaats = Sheets("Leden").Cells(Y, 6).Value
        txtEmail = Sheets("Leden").Cells(Y, 7).Value
        TxtGeboortedatum = Sheets("Leden").Cells(Y, 8).Value
        txtTelefoon = Sheets("Leden").Cells(Y, 9).Value
        txtIndienst = Sheets("Leden").Cells(Y, 10).Value
    End If

Maar wellicht vind jij je eigen structuur makkelijk, dat kan natuurlijk.

 

[VenA]

Je hebt jouw vraag als opgelost gemarkeerd. Daarnaast is de code een beetje een rommeltje.