Office: Kickerturnier erstellen mit 5 Spielern - jeder gegen jeden

Hallo,
stelle ich mich jetzt an ..oder ist es wirklich so kompliziert ?
Wir sind 5 Personen ( A bis E z.B.)
Jeder muss mit jedem einmal spielen und gegen jede mögliche Kombination spielen.
Wie geht das am schnellsten um da einen Spielplan zu bekommen.
Das sind doch massig Spiele oder?

Also jeder mit jedem ...und gegen jeden mit jeden !

Wer kann mir helfen ??
DANKE im voraus

:-|

 

Hallo!

Bei 5 Spielern hält sich die Anzahl der Spiele noch in Grenzen, bei mehr Spielern wächst es stark an:
4 Spieler = 3 Spiele
5 Spieler = 15 Spiele
6 Spieler = 45 Spiele
7 Spieler = 105 Spiele

Mit einem VBA-Code kannst du die Paarungen auf listen lassen:
Öffne aus der Tabelle heraus den VBA-Editor mit Alt+F11.
Wähle Menü Einfügen > Modul.
Kopiere nun diesen Code in das Codefenster rechts:

Code:

Sub Test()
Dim a As Byte, b As Byte, c As Byte, d As Byte, z As Integer
Const Anzahl = 5
For a = 1 To Anzahl
For b = a + 1 To Anzahl
For c = a + 1 To Anzahl
If c <> a And c <> b Then
For d = c + 1 To Anzahl
If d <> a And d <> b Then
z = z + 1
Cells(z, 1) = a & " + " & b
Cells(z, 2) = "-"
Cells(z, 3) = c & " + " & d
End If
Next d
End If
Next c
Next b
Next a
End Sub

Zurück in der Tabelle drückst du Alt+F8 und die Paarungen werden in den Spalten A bis C aufgelistet.

 

DANKE

Super- vielen Dank

 

Hallo

ich habe ein änliches Problem mit einem Billard-Turnier.

Wir sind bis zu 24 Teilnehmer und es soll ein Doppel-Jeder-gegen jeden Turnier werden nur das jede mögliche Kombination von Paaren nur einmal auftreten soll.

D.h. wenn die 1 mit der 2 gegen die 5 und 6 gespielt hat soll dies im laufe des Turniers nicht mehr vorkommen... Also die 1 nicht mehr mit der 2 und die 5 nicht mehr mit der 6...

Ist dies machbar?

Gruss
Century147

 

Hallo!

Alle möglichen Teams würde dir dieser Code auflisten:

Code:

Sub Teams()
Dim i%, j%, X%
X = InputBox("Wieviele Spieler nehmen teil?")
Columns(1).ClearContents
For i = 1 To X - 1: For j = i + 1 To X
[A65536].End(xlUp).Offset(1, 0) = i & " + " & j
Next j: Next i
End Sub

Leider fehlt mir aber völlig der kombinatorische Ansatz, um aus diesen nun die Paarungen zu erstellen.
Vielleicht fällt dir ja selbst (oder jemand anderem) etwas dazu ein...

 

Danke Schatzi

das hilft mir auf jeden Fall weiter und die Paarungen werde ich selbst hinbekommen....

Gruss
Century147

 

mhh Ich bin ehrlich: Ich habs damals nicht hinbekommen :-(

Aber vielleicht weis mittlerweile jemand einen guten Ansatz? Wäre Super

Gruß
Century 147