Auslosung von Spielpaarungen

• Auslosung von Spielpaarungen von Barthl vom 19.09.2003 17:34:50
  • AW: Auslosung von Spielpaarungen - von andre am 19.09.2003 17:47:16
  • AW: Auslosung von Spielpaarungen - von Nepumuk am 19.09.2003 18:33:20
    • AW: Auslosung von Spielpaarungen - von Beni am 20.09.2003 12:05:29

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

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

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

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

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