emields,

bedankt voor uw versie,deze met de loting kan ik zeker gebruiken


     mvg,lco

Je hoeft slechts eenmalig kolom B te omkaderen

cow18,

Als ik namen invul in kolom B en de dubbels laat verwijderen verwijderd hij de verkeerde ,probeer eens of jij er iets in ziet

ps:zie bijlage

     mvg,lco

Is het zo beter?

in #12 had ik een andere versie voor het verwijderen van dubbels meegestuurd.
De hier gebruikte versie is nog door iemand anders "old school" aangeleverd en bevat wat foutjes.

bv.
- vergelijking is hoofdlettergevoelig
- If Cells(dubbel, 1).Value = tezoeken Then Cells(dubbel, 1).Value = "":   Rem dan deze in Kolom 1 wissen
- stukje "herplaats" is "eigenaardig", mogelijks met "verwijderen duplicaten" of "sorteren" had 1 en anders handiger/eenvoudiger geweest.

die 2e "sub verwijderendubbels"  is er te veel aan. Haal 1 van die 2 regels weg (en pas dan de knop desnoods aan).
Je kan maar 1 "sub" .... "End Sub" per macro hebben, die private wil enkel zeggen of die macro zichtbaar is, als je bv. Alt-F8 drukt.

Private Sub CommandButton1_Click()
[color=red]Sub VerwijderenDubbels()
[/color]   Dim MijnLeden, MijnWinners

   With Sheets("blad1")
      .Range("A2:A1000").Name = "leden"          'gedefinieerde naam "leden" geven aan dit bereik


ja