Gruppe
Allgemein
Problem
Wie kann ich für 6 Tennisspieler die Paarungen über VBA nach dem Zufallsprinzip zusammenstellen lassen?
StandardModule: basMain
Sub Zufall()
Dim rngA As Range, rngB As Range, rngC As Range
Dim iZufall As Integer
Randomize
Set rngA = Range("B1:C3")
rngA.ClearContents
For Each rngB In rngA.Cells
Set rngC = Range("A1")
While Not rngC Is Nothing
iZufall = Int((6 * Rnd) + 1)
Set rngC = rngA.Find(Cells(iZufall, 1))
Wend
rngB.Value = Cells(iZufall, 1)
Next rngB
End Sub