Misschien heb je hier iets aan:
Sub Random()
getal = Int((4 * Rnd) + 1)
Range("B1") = getal
Do
getal = Int((4 * Rnd) + 1)
Loop Until [B1].Find(getal) Is Nothing
Range("C1") = getal
Do
getal = Int((4 * Rnd) + 1)
Loop Until [B1:C1].Find(getal) Is Nothing
Range("D1") = getal
End Sub
In dit voorbeeld trek je 1, 2, 3 of 4. De eerste komt in B1. De tweede komt
in C1, maar het cijfer in B1 doet niet meer mee. De volgende komt in D1, maar
nu worden B1 en C1 uitgesloten.
In jouw geval moet je 4 veranderen in 52 en heb je 25 zulke blokjes van Do
t/m Range nodig, waarbij je [B1:C1] steeds met een cel uitbreidt, dus na
B1:C1 komt B1:D1 enz. En de cel bij Range schuift steeds eentje op.
Helpt dat? Wim
Post by Martin VrielingBedankt voor je sheet...
ik creeer een situatie waar een aantal spelers een kaartspel spelen(poker).
Vervolgens bekijk ik de kansen die ze hebben en hoe ze zouden moeten gaan
spelen.
Ze spelen met 1 stock, dus kan het niet zo zijn dat er 2 een harten aas
krijgen.
Als ik 2 keer opnieuw bereken kan dat wel...
Ik heb met bijv 10 spelers voor iedere speler 2 random kaarten nodig.
daarnaast heb ik nog 5 losse random kaarten nodig.
in totaal zijn dit 25 random kaarten uit een stapel van 52, waarbij er nooit
2 hetzelfde mogen zijn.
Hoe kan ik nou die random functie gebruiken(of aselect oid) zonder dat er
dubbelen voorkomen?
Bedankt voor alle steun!!!
Groetjes,
Martin