Loten verdelen in Excel
Edwin
Ik heb een Excel sheet waarin een behoorlijk groot aantal mensen is
bijgehouden dat loten heeft gekocht.
Nu zou het handig zijn om deze sheet ook te gebruiken voor het trekken van
de loten, mijn plan was dan het aantal loten te laten vermenigvuldigen op een
ander tabblad. Bijvoorbeeld als iemand 5 loten heeft gekocht dat ik 5 keer
zijn naam op dat andere tabblad krijg en dat ik met 1 druk op de knop een
random getal genereer en dat daaruit iemand getrokken wordt van dat tabblad.
Nu is het maken van die random nog niet het probleem, maar mijn vraag is:
Hoe kan ik vanuit het invoerblad met "naam; aantal loten" komen naar een
ander tabblad waar voor elk lot een aparte cel aangemaakt wordt met daarin de
naam van degene die dat lot gekocht heeft?
In ieder geval al bedankt voor het lezen van mijn vraag en geweldig als je
er over na wil denken. Helemaal geweldig als je me kan helpen.
Mvg,
RdG1314
Het is me niet duidelijk of er alleen een aantal achter een naam staat, maar
daar ga ik nu even vanuit. In A7 staat een naam en in B7 staat het aantal.
Dan in C1 =HERHALING(A7&";";B7). Daarna op C data - tekst naar kolommen.
Met vriendelijke groet,
Rob
PS: Wilt u kijken naar foto's van uiteenlopende onderwerpen? Kijk op
http://www.rdg1314.nl
"Edwin" <Ed...@discussions.microsoft.com> schreef in bericht
news:5A0A3772-2316-4EFF...@microsoft.com...
Edwin
Hartelijk dank voor het meedenken. Je oplossing is wel een stapje verder dan
ik zelf was, maar nu krijg ik het de naam keer het aantal loten in 1 cel.
(Als iemand 5 loten heeft dan staat er 5 keer de naam in die cel).
Wat ik echter graag zou zien is dat voor elk lot op 1 naam een aparte cel
komt. Dan kan ik over die cellen een random laten gaan die dan met een druk
op F9 een winnaar aangeeft.
VB.
naam aantal loten
Jantje 5
Pietje 2
Klaas 3
Gerard 1
Wordt dan op een ander tabblad:
Jantje
Jantje
Jantje
Jantje
Jantje
Pietje
Pietje
Klaas
Klaas
Klaas
Gerard
Is dit mogelijk?
Mvg,
Edwin
Krijn
voorbeeld kan je ook met cumulatieven werken
naam aantal loten cumulatief
Jantje 5 5
Pietje 2 7
Klaas 3 10
Gerard 1 11
"Edwin" <Ed...@discussions.microsoft.com> schreef in bericht
news:1D9E71B4-876F-43DF...@microsoft.com...
Edwin
Het gaat niet om het totaal aantal loten, dat kan ik simpel met een som
functie doen. Het is de bedoeling dat het aantal loten dat vermeld is omgezet
wordt in het gelijk aantal namen, zodat ik uiteindelijk uit die namen een
trekking kan doen.
Zo krijgt namelijk elke naam een gelijke kans.
Tenminste zo had ik dat bedacht.
Blijkbaar is het uitleggen van het probleem nogal lastig...
In elk geval ook jij bedankt Krijn.
mvg,
Edwin
jan
Wellicht een mogelijkheid.
Als de gegevens op Blad1 staan:
Namen in kolom A vanaf A2
Aantal loten in kolom B (uiteraard vanaf B2)
zet dan deze formules in Blad2
in A2: =INDIRECT("Blad1!A" &
RIJ()-GEHEEL((RIJ()-2)/AANTALARG(Blad1!$A$2:$A$1000))*AANTALARG(Blad1!$A$2:$A$1000))
in B2:
=--(SOMPRODUCT(--($A$2:A2=A2))<=SOMPRODUCT((Blad1!$B$2:$B$1000)*(Blad1!$A$2:$A$1000=A2)))
En trek deze formules door voorzover nodig.
Dat laatste wordt bepaald door het maximum aantal loten dat iemand heeft gekocht.
In kolom B komen nu nullen en enen
Het aantal enen achter een naam komt overeen met het aantal loten dat die persoon
heeft gekocht. Daarna verschijnen er achter die naam alleen nog nullen.
Met een AutoFilter op kolom B kun je nu de enen selecteren en je hebt een lijst
waarin de namen zovaak voorkomen als men loten heeft.
Op dit resultaat zou je dan iets kunnen doen met ASELECT().
Als één en ander niet dynamisch hoeft te zijn, kun je natuurlijk ook de kolom namen
kopieëren naar A2 op Blad2 en deze kolom dan doorvoeren zover als nodig.
En dan in B2 wel de formule zoals bovenstaand.
Het filter toepassen en dan de overgebleven rijen kopieëren en met plakken
speciaal>Waarden vastleggen in bijvoorbeeld Blad3 en dan daar je aselecte trekking
bepalen.
Jan
"Edwin" <Ed...@discussions.microsoft.com> schreef in bericht
news:21672AFD-0315-475C...@microsoft.com...
RdG1314
Klopt, daarom had ik aangegeven "Daarna op C data - tekst naar kolommen",
scheidingsteken ; en daarna transponeren, zodat de namen onder elkaar komen.
Enig handwerk, maar wel leidend tot het gewenste resultaat.
Met vriendelijke groet,
Rob
PS: Wilt u kijken naar foto's van uiteenlopende onderwerpen? Kijk op
http://www.rdg1314.nl
"Edwin" <Ed...@discussions.microsoft.com> schreef in bericht
news:1D9E71B4-876F-43DF...@microsoft.com...
Edwin
Dank je voor de moeite, deze gaat werken.
Mvg,
Edwin
Edwin
Dank je voor je moeite, dat transponeren had ik er niet bij... Nu heb ik
twee mogelijkheden, ook jij hartelijk bedankt!