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

Beiträge aus den Excel-Beispielen zum Thema " Auslosung von Spielpaarungen"