Thema: Werte 1 und 0 in einem bestimmten Verhältnis 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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zufall