1. man nie gegen einen spieler aus seinem Team spielt 2. nie gegen den selben spieler in runde eins bis vier spielt 3. man nie gegen eine zweite mannschaft spielt.
Wenn ich das richtig lese hast du noch ein viertes kreterium für ( für punkt 2 ) : nie gegen einen spieler aus einem Team gegen das man schon gespielt hat !? ( Das wäre egal wenn es ein anderer Spieler aus dem Team ist )
Das Ziel diese Forums ist doch dem Fragesteller eine für ihn praktikable Lösung anzubieten.
da Rabe Fennek und mir nicht zu glauben scheint, kannst du ihm vielleicht schreiben ob Fennks Lösung die Kriterien erfüllt.
Ich bin auf jeden Fall hier raus.
Nochmals, ich bin erst bin erst seit kurzem in diesem Forum, schaue aber in alle neuen Anfragen mal kurz rein. Ich bewundere die Lösungsvorschläge der regelmässigen Antwortgeber, wozu du ja auch gehörst.
Du kannst ja dann mit Rabe klären, ob du dein Priogramm erweiterst so dass es alle Bedingungen erfüllt, oder ob er auch mit den Eischränkungen leben kann.
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen." Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
zuallererst möchte ich klarstellen, dass ich nicht behauptet habe, dass meine Lösung alle Anforderungen erfüllt. Ich glaube auch nicht, dass es mit einfachen Mitteln möglich ist, eine zufällige Anordnung über vier Runden zu erstellen, die alle Kriterien erfüllt. Für mich ist aber nur eine zufällige Zusammensetzung nicht manipulierbar. Die Lösung von Fennek ist zwar einfach, aber berechenbar und kann dazu führen, dass die Sortierung der Teilnehmer innerhalb der Mannschaften auf die Gegner abgestimmt wird. Trotzdem habe ich auch für die Variante von Fennek eine Zufallsversion erstellt, die in aller Regel auch funktioniert. Ich habe eine Lösung erstellt, nein zwei, ob sie den Anforderungen genügen, kann nur Rabe79 entscheiden. Für mich ist das Thema erledigt.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr! Über Rückmeldungen würde ich mich freuen.
eigentlich wollte ich es vermeiden, ein eigenes Prüfprogramm zu schreiben, aber reines Interesse (und da ich niemals xlsm-Dateien von anderen öffne), hier ist mein Test-Code, passend für Blatt 2 meiner Datei:
Code:
Sub Testen() For i = 2 To 20 For j = 7 To 22 Team = Int((Cells(i, j) - 1) / 4) + 1 B = Chr(64 + Team) Cells(i + 24, j) = B & Cells(i, j) Next j Next i End Sub
Sub Farbtest() Dim rng As Range Set rng = Range("G26:V44") For i = 65 To 83 rng.Interior.Color = xlNone For Each c In rng If Left(c, 1) = Chr(i) Or Left(c, 1) = Chr(i + 1) Then c.Interior.Color = vbYellow Next c Stop Next i End Sub
Der erste Teil verbindet den Gruppen-Buchstaben mit der Spielernummer, der zweite Teil markiert alle Spieles eines Teams und das Team mit dem nächsten Buchstaben (selber Verein) mit einer Farbe. Es ist nötig, den Code im VBA-Fenster zu starten, und nach jeder Runde ("stop") erneut zu starten.
Nach meinem Eindruck sitzen niemals zwei Spieler eines Vereins zusammen.
@snb: Da ich nicht einmal weis, um welches Spiel es geht, kenne ich auch keine alten Lösungen
@ Fennek wenn du keine .xlsm Dateien öffnest kein Problem, ich habe alle Module als Text in eine Tabelle kopiiert und alle Module gelöscht. Damit kannst du meine Prüfprogramme selbst nachprüfen.
@ Snb ich mag eine Nervensaege sein, aber über fachliche Tatsachen kann man mit mir nicht diskutieren. Es gibt Dinge die eindeutig Beweisbar sind, und meine Staerke ist, das ich da sehr gründlich bin. Das ist nicht böse gemeint! Ich schaue mir nur gerne an wo die technischen Grenzen sind.
@ im Beispiel von Fennek habe ich vier Tische markiert wo immer wieder dieselben Personen zusammen sitzen. Das kann man auch mit Mathematik oder höhre Mathematik nicht weg diskutieren. Eine simple Tatsache. Das ganze Blatt ist grün .... über 2500 Übereinstimmungen ...
Um bei dieser Datenmenge überhaupt einen praktischen Durchblick zu bekommen habe ich ja das Prüfprogramm geschrieben. In der Teilnehmer Liste von Edgar über 4 Runden erkennt man vor lauter Namen den Wald nicht !!
Es bleibt die Erkenntnis die wir alle schon hatten, so ein Programm, so simpel es erscheinen mag hat es in sich! In drei Thread habe ich an dem Problem gearbeitet, und musste jedesmal das Handtuch schmeissen. Es haelt mich aber nicht davon ab daran zu glauben das es eine Makro Lösung gibt.
Vielleicht muss bei Fennek seiner Idee die Verschiebung auf eine bestimmt Zahl eingestellt werden??? Es war mir zuviel Arbeit 140 Versatz Möglichkeiten durchzutesten. Ein Programm dafür gibt es ja.
mfg Gast 123
PS jetzt habe ich mal eine fachliche Frage an euch:
Wie kann man bei mehreren Computern die vernetzt sind die Zugriffsberechtigung einschraenken ?? Ist eine konkrete Aufgabe hier im Forum, aber damit habe ich bisher noch nie gearbeitet. "Einsatzplan" Jede Abteilung soll aus Datenschutzgründen nur Zugriff auf bestimmte Mitarbeiter Daten haben.i
Das ist für mich Neuland!! Hat da jemand eine gute Idee ?? Die PC Serien Nummer lesen ist schwierig Wie ich erkenne welcher Computer zugreift und wie man nur begrenzte Daten für jede Abteilung freigibt ??
