Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen
Gruppe
Zufall
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