Herbers Excel-Forum - das Archiv

Auslosung von Spielpaarungen

Bild

Betrifft: Auslosung von Spielpaarungen
von: Barthl
Geschrieben am: 19.09.2003 17:34:50
Hallo,
ich organisiere im Verein öfter Tennisevents. Besonders lästig ist das festlegen der Spielpaarungen im modus "Jeder gegen Jeden".
Natürlich gibt es fertige Listen, bei unterschiedlicher Teilnahmerzahl, sind die aber umständlich umzupfriemeln.
Weis hier jemand eine Lösung ob EXCELL diese Auslosung schaft?

Danke, Barthl

Bild

Betrifft: AW: Auslosung von Spielpaarungen
von: andre
Geschrieben am: 19.09.2003 17:47:16
hallo barthl,
schaue mal in die recherche oder lade bei den downloads den xlWebfinder und suche damit.
gruss andr
Bild

Betrifft: AW: Auslosung von Spielpaarungen
von: Nepumuk
Geschrieben am: 19.09.2003 18:33:20
Hallo Barthl,
schreib mal eine E-Mail an Jens Pu der hat für seinen Tennisverein mal so etwas geschrieben. Schreib dazu, das ich dich empfohlen habe.
Gruß
Nepumuk
Bild

Betrifft: AW: Auslosung von Spielpaarungen
von: Beni
Geschrieben am: 20.09.2003 12:05:29
Hallo Barthl,
trage in SpalteA die Spieler ein und lasse dieses Makro laufen.
Gruss Beni

Sub Spielpaarung()
Range("D2:M100") = ""
Range("A1:A70").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Anzahl = 3
Team = Range("B" & Rows.Count).End(xlUp).Row / 2
For j = 2 To Anzahl
For k = 1 To Team
Range("B1:B70").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
leere_zeile = Range("B" & Rows.Count).End(xlUp).Row + 1
zzahl = Int((leere_zeile - 1 - 1 + 1) * Rnd + 1)
Mname = Range("B" & zzahl)
Range("B" & zzahl) = ""
Range("C" & j).Select
ActiveCell.Offset(0, k) = Mname
Next k
Next j
Range("A1").Select
End Sub

 Bild
Excel-Beispiele zum Thema " Auslosung von Spielpaarungen"
Spielpaarungen zusammenstellen Spielpaarungen von Vorrunde bis Finale durch Formeln ermitteln