Gruppe
Allgemein
Bereich
Zufall
Thema
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen
Problem
Wie kann ich die Werte 0 und 1 in 100 Zellen mit einer vorgegebenen Gewichtung zufällig anordnen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Zufall()
Dim iCounter As Integer, iZufall As Integer
Range("A1:A100").ClearContents
For iCounter = 1 To 100
iZufall = Int((100 * Rnd) + 1)
While Not IsEmpty(Cells(iZufall, 1))
iZufall = Int((100 * Rnd) + 1)
Wend
If iCounter <= Range("C1").Value Then
Cells(iZufall, 1) = 0
Else
Cells(iZufall, 1) = 1
End If
Next iCounter
End Sub