Hallo iedereen,

Ik probeer de verkiezingsuitslag van 2012 simuleren. Dat moet wil ik doen door een x aantal keer (aantal stemmen van 2012) een random getal (1/100) te laten trekken. Die random getallen vallen in een bepaald "bakje". Bijvoorbeeld alle getallen tussen de 1 en de 5 vallen in "bakje" CDA. Alle getallen tussen de 6 en de 8 in bakje PVDA laten vallen. Totdat ik 21 bakjes met politieke partijen heb. Nadat alle stemmen in een bakje zijn gevallen moet er worden uitgerekend hoeveel stemmen in het bakje zitten en die omrekenen naar het aantal zetels wat de partij heeft.

Ik zit hier nu al de hele week mee te worstelen en ik kom niet veel verder. Tot nu toe heb ik een code voor het random getallen trekken:

Sub GenerateRandom()
Sub Loop1()
Dim i As Long
For i = 1 To 100
Range("A" & i) = Rnd() * 100
Next i
Loop
End Sub

En hiermee denk ik dat ik verschillende "bakjes" kan simuleren:

Sub Test_Function()
Dim number As Integer
number = InputBox("Enter any number :")
result = number Mod 21 'Get the remainder after dividing by 2
Select Case result
Case Is = 0
MsgBox ("The number you entered is cda.")
Case Is = 1
MsgBox ("The number you entered is pvda.")
Case Is = 2
MsgBox ("The number you entered is pvv.")
Case Is = 3
MsgBox ("The number you entered is groenlinks.")
End Select
End Sub

Let wel dat ik nog een redelijke noob ben in Excel VBA, en daarom heb ik nu wat extra hulp nodig zodat ik het wel ga begrijpen