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

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