Auslosung von Gruppenspielen
12.02.2004 21:45:41
Jürgen
ich habe folgendes Problem:
128 Spieler aus div. Vereinen
16 Gruppen mit je 8 Spielern
Spalte A: Spieler
Spalte B: Verein
Ich habe folgendes Scipt von Beni (Archiv) entsprechend der Gruppen verändert.
Wie kann ich nun vermeiden, das 2 Spieler aus dem gleichen Verein in einer Gruppe sind ??
Das Scipt berücksichtigt noch nicht die Vereine in Spalte B.
Sub Gruppenauslosung()
Range("F2:W100") = ""
Range("A1:A128").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Anzahl = 9
Team = Range("C" & Rows.Count).End(xlUp).Row / 8
For j = 2 To Anzahl
For k = 2 To Team + 1
Range("C1:C128").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
leere_zeile = Range("C" & Rows.Count).End(xlUp).Row + 1
zzahl = Int((leere_zeile - 1 - 1 + 1) * Rnd + 1)
Mname = Range("C" & zzahl)
Range("C" & zzahl) = ""
Range("D" & j).Select
ActiveCell.Offset(0, k) = Mname
Next k
Next j
Range("A1").Select
End Sub
Vielen Dank !!!