du könntest für jeden Teilnehmer eine Zufallszahl und dann den Rang dieser Zufallszahl ermitteln.
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.
Folgende(r) 1 Nutzer sagt Danke an Ego für diesen Beitrag:1 Nutzer sagt Danke an Ego für diesen Beitrag 28 • Somerset
vielen Dank, dies war auch mein Gedanke, allerdings generiert er ja bei jedem Öffnen der Datei eine neue Zufallszahl, jedoch soll diese sich nur Monatlich ändern.
Außerdem packt er dann auch Namen Doppelt in die Gruppen.
19.07.2019, 08:36 (Dieser Beitrag wurde zuletzt bearbeitet: 19.07.2019, 08:36 von Ego.)
Hallo Sommerset,
in der Anlage einmal ein Beispiel.
Für eine neue Paarbildung must du nur die Zufallszahlen aus der Spalte D als Werte in Spalte C kopieren.
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.
Folgende(r) 2 Nutzer sagen Danke an Ego für diesen Beitrag:2 Nutzer sagen Danke an Ego für diesen Beitrag 28 • Mase, Somerset
19.07.2019, 09:08 (Dieser Beitrag wurde zuletzt bearbeitet: 19.07.2019, 09:09 von WillWissen.)
Moin,
ergänzend zu Helmuts Vorschlag: du könntest die automatische Berechnung auf manuell umstellen und jeweils zum neuen Monat mit F9 die neue Zufallsberechnung anstoßen (damit entfällt das Kopieren).
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
Folgende(r) 1 Nutzer sagt Danke an WillWissen für diesen Beitrag:1 Nutzer sagt Danke an WillWissen für diesen Beitrag 28 • Somerset
bei einer -wie von dir gewünschten- reinen zufälligen Zuordnung kann es vorkommen, dass ein Paar wiederholt zusammengestelt wird, auch direkt im nächsten Monat.
Falls das nicht gewollt ist, habe ich im Anhang einmal eine Datei aus einer alten Anfrage herausgekramt.
a) Zusätzlich zu der Bedingung, dass sich keine Paarung wiederholen soll, wird hier berücksichtigt, dass keine Paarung aus der gleichen Abteilung kommt. Das kannst du auch für Familien nutzen.
b) Falls nicht benötigt kannst du die Datenprüfung im Blatt "Namensliste" Spalte C ausschalten und in jeder Zeile einen anderen Text eintragen.
Durch einen gleichen Eintrag hinter zwei Namen kannst du dieses Paar verhindern.
c) Über den Button "neue Gruppen" im Blatt "Entwurf" wird versucht neue Paare zusammenzustellen und über den Eintrag einer Versuchsnummer in C4 wird dieser in den Spalten A:F aufbereitet.
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.
Folgende(r) 1 Nutzer sagt Danke an Ego für diesen Beitrag:1 Nutzer sagt Danke an Ego für diesen Beitrag 28 • Somerset
konnte nun soweit alles an meine Bedürfnisse anpassen,
allerdings wenn ich nun die Blätter/Arbeitsmappe schütze, läuft zwar der Ausgabewechselbutton(1,2,3,...), jedoch nicht der "Neue Gruppe" Button (es fehlt also die Berechnung der neuen Zahlen).
Noch einen tipp wie ich dieses Problem löse?
(Habe es schon über die Entwicklertools im Entwurfsmodus versucht und den Schutz rausgenommen und im Debuggmodus steht PrivateSub, ist dies dort änderbar? wenn ja wie?)
im Programm zu "Neue Gruppen" werden in den Zellen ab K4 Zahlen eingetragen. Du kannst
1. vor dem Blattschutz über " Zellen formatieren" diese Zellen entsperren oder
2. zu Beginn des Programms den Blattschutz aufheben und am Ende wieder einrichten:
a) nach der Zeile "Dim dict As Object" eine Zeile mit "ActiveSheet.Unprotect" und
b) vor der Zeile "End Sub" eine Zeile mit "ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True"
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.
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
