AW: Spielplan mit Zufalls Paarungen erstellen
25.09.2023 18:36:54
Yal
Hallo Pascal,
das Spiel mit dem Zufall... Funktioniert gut für den ersten Spielrunde (11:30), aber für den zweiten wirst Du ausschliessen wollen, dass Paarung, die schon vorhanden waren, wiederkehren. Und da wird es erst lustig.
Die Alternativ ist alle Kombinationen aufzulisten (11 mal Mannschaft1 gegen je eine ab Mannschaft2, dann 10 mal Manschaft2 gegen je eine ab Mannschaft3, usw), daneben ein Zufallszahl zu stellen und nach diese sortieren. Die ersten 6 Spielen werden mit den ersten 6, die nächste 6 mit Zeilen 7 bis 12, usw.
Alle Kombinationen kannst Du mit folgenden Code erzeugen:
Public Function Kombis(ByRef Target As Range) As Variant
Dim Arr, Erg(), i, j, k
Arr = Target.Value
ReDim Erg(1 To UBound(Arr, 1) * (UBound(Arr, 1) - 1) / 2, 1 To 2)
For i = 1 To UBound(Arr, 1) - 1
For j = i + 1 To UBound(Arr, 1)
k = k + 1
Erg(k, 1) = Arr(i, 1)
Erg(k, 2) = Arr(j, 1)
Next
Next
Kombis = Erg
End Function
Public Sub Ausgeben()
Dim Erg
With Worksheets("Tabelle1")
Erg = Kombis(.Range("B2:B13"))
.Range("K1").Resize(UBound(Erg, 1), UBound(Erg, 2)) = Erg
End With
End Sub
VG
Yal