Microsoft Excel

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