Gruppe
Allgemein
Problem
Wie kann ich die Werte 0 und 1 in 100 Zellen mit einer vorgegebenen Gewichtung zufällig anordnen?
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