Kickerturnier erstellen mit 5 Spielern - jeder gegen jeden :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Kickerturnier erstellen mit 5 Spielern - jeder gegen jeden

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Campy
Newbie
Newbie

Anmeldedatum: 30.06.2006
Beiträge: 6

Verfasst am: 20.11.2007, 08:30

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

Neutral

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 20.11.2007, 12:39

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.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Campy
Newbie
Newbie

Anmeldedatum: 30.06.2006
Beiträge: 6

Verfasst am: 20.11.2007, 12:48

Super- vielen Dank

Century147
Newbie
Newbie

Anmeldedatum: 19.11.2007
Beiträge: 40

Verfasst am: 18.01.2008, 11:10

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 18.01.2008, 18:05

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...

Century147
Newbie
Newbie

Anmeldedatum: 19.11.2007
Beiträge: 40

Verfasst am: 21.01.2008, 08:35

Danke Schatzi

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

Gruss
Century147

Century147
Newbie
Newbie

Anmeldedatum: 19.11.2007
Beiträge: 40

Verfasst am: 18.12.2008, 09:44

Century147 hat Folgendes geschrieben:

mhh Ich bin ehrlich: Ich habs damals nicht hinbekommen Sad

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

Gruß
Century 147

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	(Exel 2003) 2 Tabellen vergleichen un...	michael62	Microsoft Excel Hilfe	5	04.01.2009, 12:08
	Bereicht aus mehreren Tabellen erstellen	Hello100	Microsoft Access Hilfe	2	30.12.2008, 20:46
	Buch in Word 2007 erstellen	madys	Microsoft Word Hilfe	4	21.12.2008, 18:21
	Liste aus Liste erstellen	TheRedNoseRudolf	Microsoft Excel Hilfe	6	11.12.2008, 14:10
	Ersten Messwert jeder Minute ausgeben	vlock	Microsoft Excel Hilfe	5	09.12.2008, 10:00

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de