Hallo zusammen,
ich schreibe gerade an einem Makro, mit dem ich ein Excel-Blatt erstellt möchte, für ein Fußballturnier. Es können zwei oder drei Gruppen geben und jede Gruppe kann 4 bis 7 Teilnehmer haben. Nun mein Problem:
Die Teilnehmer einer Gruppe müssen alle gegen einander spielen. Ich habe es so gelöst
For I = 1 To AnzTeil - 1
For II = I + 1 To AnzTeil
Zeile = Zeile + 1
Paarung (Zeile) = TeilNehmer(I) & TeilNehmer(II)
...
Next II
Next I
Leider kommt da so etwas raus:
TeilNehmer 1 gegen TeilNehmer 2
TeilNehmer 1 gegen TeilNehmer 3
TeilNehmer 1 gegen TeilNehmer 4
TeilNehmer 1 gegen TeilNehmer 5
TeilNehmer 2 gegen TeilNehmer 3 und so weiter.
Hier spielt der TeilNehmer 1 die ersten 4 Spiele, das geht natürlich nicht, die Paarungen müssen so verteilt werden das jeder TeilNehmer in etwa die gleiche Pause zwischen zwei Spielen hat. z.B. für 5 TeilNehmer:
1 2
3 4
5 1
3 2
5 4
1 3
2 4
5 3
1 4
2 5
Ist auch nicht optimal da TelNehmer 3 immer nur ein Spiel Pause hat, aber ich denke ihr habt mein Problem verstanden.
Kann mir einer weiter helfen?
Bin im Grunde mit meinem Makro fertig, aber leider komme ich nicht weiter wegen dieser Kleinigkeit (aber entscheidend).
Vielen Dank im Voraus.
Rincewind