Hoe maakt u lotingsnamen in Excel?
Bij werkplekactiviteiten, teamvergaderingen of speciale evenementen moet u vaak willekeurig enkele gelukkige deelnemers of winnaars selecteren uit een lange naamlijst—bijvoorbeeld voor een teamloterij, willekeurige prijzen of het aanwijzen van vrijwilligers. Het handmatig trekken van namen uit een hoed is inefficiënt of onpraktisch bij digitale lijsten, zeker wanneer het aantal namen groeit. Gelukkig biedt Excel diverse slimme methoden om willekeurig een selectie te maken uit uw lijst, zodat u transparante, herhaalbare en aanpasbare lotingen kunt opzetten direct in uw werkbladen. In dit artikel begeleiden we u stap voor stap door verschillende effectieve manieren om willekeurig namen te selecteren in Excel, waarbij we praktijkscenario’s, voordelen en belangrijke overwegingen belichten, plus handige tips geven om veelvoorkomende fouten te voorkomen.
Willekeurige namen extraheren voor loting met formule
Willekeurige namen selecteren voor loting met Kutools voor Excel
Willekeurige namen extraheren voor loting met VBA-code
Alternatief: Willekeurige namen extraheren met de ASELECT-functie en sorteren
Willekeurige namen extraheren voor loting met formule
Als u een specifiek aantal namen willekeurig moet selecteren (bijvoorbeeld 3 winnaars) uit een kolom met namen, kunt u een complexe formule-aanpak gebruiken. Deze aanpak voorkomt automatisch dubbele selecties en werkt het resultaat bij telkens wanneer de werkmap opnieuw wordt berekend. Deze methode is vooral geschikt voor het trekken van een klein, vast aantal namen uit een middelgrote lijst, met name wanneer u wilt dat het proces traceerbaar is en geen extra add-ins of code vereist.
Volg de onderstaande stappen om deze methode te gebruiken:
Voer de volgende formule in een lege cel in waar u het eerste lotingsresultaat wilt hebben (bijvoorbeeld C2):
=IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1))))Na het invoeren van de formule sleept u de vulgreep naar beneden over evenveel rijen als het aantal namen dat u wilt trekken (bijvoorbeeld: voor 3 namen sleept u tot en met cel C4). De getrokken namen verschijnen direct in de betreffende cellen. Zie screenshot:
Uitleg van parameters en praktische tips:
- In deze formule:
- A2:A16— dit is uw brondatumbereik voor de namenlijst. Pas dit bereik aan zodat het overeenkomt met uw werkelijke namengegevens.
- B2— in deze cel geeft u het totale aantal namen op dat u willekeurig wilt selecteren (bijvoorbeeld 3).
- C2 — dit is de eerste cel in uw resultatenlijst waarin u de formule invoert.
- C1 — dit is de cel direct boven de formule. Deze is vereist voor de juiste werking van de formulestructuur, ook al blijft hij leeg.
- Deze methode is dynamisch: als u een nieuwe reeks willekeurige namen nodig hebt, drukt u eenvoudigweg op F9 om opnieuw te berekenen en een nieuwe resultatenset te verkrijgen.
- Om te voorkomen dat formules veranderen telkens wanneer het werkblad opnieuw wordt berekend, kunt u de resultaten kopiëren en Plakken speciaal > Waarden gebruiken om de geselecteerde cellen statisch te maken.
- Als uw namenlijst groter is of als u de trekking meerdere keren wilt uitvoeren, zorg er dan voor dat uw resultaatkolom niet overlapt met de namenlijst, want dat kan fouten veroorzaken.
Let op: Controleer of de celverwijzingen kloppen en of de bereiken overeenkomen met uw daadwerkelijke gegevens. Wijzigingen in de werkbladstructuur of het verwijderen van gerefereerde cellen kan ervoor zorgen dat de formule niet meer werkt.
Willekeurige namen selecteren voor loting met Kutools voor Excel
Als u liever een eenvoudige en interactieve methode gebruikt zonder formules te schrijven, biedt Kutools voor Excel een eenvoudige manier om direct willekeurig namen te selecteren via de functie Willekeurig sorteren. Deze oplossing is vooral handig voor niet-technische gebruikers of wanneer u visueel en snel wilt werken—bijvoorbeeld bij grote datasets of als u lotingen regelmatig moet herhalen.
Nadat Kutools voor Excel is geïnstalleerd, volgt u deze stappen:
1. Selecteer de volledige namenlijst die u wilt gebruiken voor de loting. Klik vervolgens op Kutools > Bereik > Sorteren, selecteren of willekeurig. Zie screenshot:
2. Ga in het dialoogvenster Sorteren, selecteren of willekeurig naar het tabblad Selecteren. Typ in het vak Aantal cellen om te selecteren het gewenste aantal willekeurige namen (bijvoorbeeld 3) en kies vervolgens Cel onder de sectie Selecteertype. Zo selecteert u eenvoudig een willekeurig aantal unieke namen. Zie screenshot:
3. Klik op OK. Het opgegeven aantal namen wordt willekeurig geselecteerd en gemarkeerd in uw lijst, zodat u de winnaars of geselecteerde deelnemers gemakkelijk kunt identificeren. Zie screenshot:
Deze methode onderscheidt zich door gebruiksgemak en betrouwbaarheid, met extra opties om namen te sorteren of te schudden wanneer gewenst. U kunt de functie zo vaak gebruiken als nodig is, waardoor handmatige fouten of herhalingen — zoals die vaak voorkomen bij manuele berekeningen — worden voorkomen. Ideaal voor wie snel een oplossing zoekt, zonder zich zorgen te hoeven maken over formules of programmeren.
Opmerking: Zorg ervoor dat u geen andere irrelevante gegevens in uw bereik selecteert, aangezien alleen de gemarkeerde cellen uw winnende namen vertegenwoordigen. Markeer namen — het bereik kan worden gekopieerd of gemarkeerd voor verdere verwerking.
Klik hier om Kutools voor Excel nu te downloaden en gratis uit te proberen!
Samengevat biedt het gebruik van Kutools voor Excel een gebruiksvriendelijke en zeer efficiënte manier om willekeurige trekkingen te beheren. Deze methode is vooral geschikt wanneer betrouwbaarheid en gebruiksgemak uw belangrijkste prioriteiten zijn, of wanneer u meerdere trekkingen moet uitvoeren met verschillende groepsgroottes.
Willekeurige namen extraheren voor loting met VBA-code
Voor geavanceerde scenario’s of wanneer u het proces met meer flexibiliteit wilt automatiseren, kunt u VBA-code gebruiken om willekeurige namen uit uw lijst te selecteren. Deze oplossing is ideaal als u vertrouwd bent met de ontwikkelaarsopties van Excel en trekkingen regelmatig wilt herhalen of aanpassen—bijvoorbeeld door resultaten naar een specifieke locatie te schrijven of grotere lijsten efficiënt te verwerken.
Volg deze stappen om VBA te gebruiken voor de loting:
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module om een nieuwe module te maken en kopieer vervolgens de onderstaande VBA-code naar het modulevenster.
VBA-code: Willekeurige namen extraheren uit een lijst:
Public Sub LuckyDraw()
Dim I, J, xRnd As Long
Dim xSRg, xDRg As Range
Dim xDic As New Dictionary
Dim xnum, xLastRow As Long
On Error Resume Next
Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
xLastRow = xSRg.Rows.Count
Set xSRg = xSRg(1)
Set xDRg = xDRg(1)
xnum = Range("B2")
If xnum < 1 Then Exit Sub
J = 0
For I = 1 To xnum
LabExit:
xRnd = Int(Rnd() * xLastRow)
If xDic.Exists(xRnd) Then GoTo LabExit
xDic.Add xRnd, ""
xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
J = J + 1
Next
End Sub
Toelichting op parameters: In de code is B2 de cel waarin u het aantal willekeurige namen invoert dat u wilt extraheren. U kunt de celverwijzingen naar behoefte aanpassen.
3. Nadat u de code hebt geplakt, gaat u in het VBA-editorvenster naar Extra > Referenties. Schakel in het geopende dialoogvenster de optie Microsoft Scripting Runtime in de lijst Beschikbare referenties in. Deze stap is vereist om het scripting-dictionary in de code te activeren. Zie screenshot:
4. Klik op OK om het dialoogvenster te sluiten en druk vervolgens op F5 om de code uit te voeren. Er verschijnt een venster waarin u de gegevenslijst met de namen moet selecteren waaruit u wilt trekken. Zie schermafbeelding:
5. Klik op OK. Er verschijnt nog een venster waarin u de doelcel kunt kiezen waar de resultaten van de loting moeten worden weergegeven. Zie schermafbeelding:
6. Klik op OK om het proces af te ronden. De willekeurig geselecteerde namen worden dan direct weergegeven, beginnend bij de cel die u hebt opgegeven. Zie schermafbeelding:
Praktische tips: Sla uw werk op voordat u de code uitvoert. Mocht er iets misgaan, controleer dan nogmaals uw verwijzingsinstellingen en celbereikselecties. Deze methode biedt meer controle, maar is het meest geschikt voor gebruikers die vertrouwd zijn met eenvoudige VBA-bewerkingen.
Voor- en nadelen: De VBA-aanpak is krachtig voor aanpassingen en kan worden afgestemd op geavanceerde vereisten, zoals het uitsluiten van eerdere winnaars, automatische meldingen en meer. Het vereist echter basiskennis van VBA en is mogelijk niet geschikt als macro’s in uw omgeving niet zijn toegestaan.
Alternatief: Willekeurige namen extraheren met de ASELECT-functie en sorteren
Naast de bovenstaande methoden is er nog een praktische en visuele oplossing: gebruik de functie RAND van Excel in combinatie met sorteren. Deze methode is eenvoudig, vereist geen complexe formules, geen invoegtoepassingen en geen code — en werkt daarom in elke Excel-versie voor snelle, incidentele lotingen. Ze is vooral handig als u handmatig wilt zien en controleren hoe de randomisatie verloopt.
Zo doet u dat:
- Voeg een hulpkolom toe naast uw namenlijst en typ =ASELECT()in de eerste cel van die hulpkolom (bijvoorbeeld: als uw namen in A2:A16 staan, voert u)=ASELECT() in B2 in).
- Kopieer de formule naar beneden over uw volledige lijst — elke cel wordt automatisch gevuld met een willekeurig decimaal getal.
- Selecteer zowel uw oorspronkelijke namen als de ASELECT-hulpkolom.
- Ga naar het tabblad Gegevens en kies Sorteren. Stel in dat gesorteerd moet worden op basis van de hulpkolom met de ASELECT-waarden, van kleinste naar grootste (of omgekeerd). Zo wordt de hele lijst willekeurig herschikt.
- Nadat de lijst is gesorteerd, selecteert u eenvoudig de bovenste N namen uit de herschikte lijst als winnaars van uw loting.
Tips en opmerkingen: Elke keer dat uw werkblad wordt herberekend, wordt de RAND-functie vernieuwd. Wilt u de lotingsresultaten vastleggen? Kopieer de namen dan en plak ze ergens anders als waarden. Wilt u een nieuwe loting? Druk gewoon op F9 om opnieuw te berekenen.
Voordelen: Deze aanpak is uiterst eenvoudig toe te passen, vereist geen extra instellingen en laat op heldere wijze zien dat live-lotingen eerlijk verlopen. Ze is echter minder geschikt als u lotingen vaak moet herhalen of geavanceerde functies nodig heeft, zoals uitsluitingslijsten—die kunt u beter afhandelen met formules, VBA of Kutools.
Kort samengevat biedt Excel meerdere manieren om willekeurig namen te selecteren voor lotingen. Uw keuze hangt af van uw voorkeur voor eenvoud, aanpasbaarheid of visuele interactie. Voor eenvoudig handmatig gebruik raden we RAND gecombineerd met sorteren of Kutools voor Excel aan. Voor dynamische en herbruikbare oplossingen bieden formules of VBA extra flexibiliteit. Mocht u fouten of onverwachte resultaten tegenkomen, controleer dan uw celverwijzingen en bereikselecties, en zorg ervoor dat eventuele benodigde invoegtoepassingen of macro-instellingen zijn ingeschakeld. Sla altijd uw gegevens op vóórdat u een loting start, en valideer de resultaten om fouten te voorkomen bij belangrijke activiteiten of teamevenementen.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins