Zufällige Objektauswahl via VBA-Programmierung - Hilfe gesucht :(

[Jisella]

Hallöchen...

Ich benötige Hilfe von ein paar schlauen Köpfen...ich habe nämlich gar keine Ahnung von VBA.
Situation ist folgende: Ich soll eine Auslosung erstellen, in dem drei unterschiedliche Objekte per Zufall ausgelost werden, jedoch darf man nicht eins der eigenen Objekte erhalten. Ich habe also quasi in Spalte A: Objekte, Spalte B: Namen der Objektverantwortlichen.

Ich hab ein wenig recherchiert und eine Liste gefunden, die über VBA erstellt wurde.... mit einem Auslosungs-Button. (beide Tabellen in der Anlage).

Folgendes Problem: Die Auswahl der Objekte (jeder soll DREI "neue" Objekte erhalten) soll per Zufall erfolgen und kein Objektverantwortlicher darf eines seiner eigenen Objekte erhalten.

............ wie mache ich das denn nur?

Vielen Dank schon mal für die zahlreichen Antworten :-D

 

[keremg]

Hallo Jisella,

Ich benötige Hilfe von ein paar schlauen Köpfen...ich habe nämlich gar keine Ahnung von VBA.

das ist leider sehr schlecht, zumal Du (VBA) Code (und evtl. Macros) verstehen musst, um ein mögliches Beispiel verstehen und nutzen zu können.

Situation ist folgende: Ich soll eine Auslosung erstellen.

Wer hat dich denn dazu aufgefordert? Musst Du das evtl. für die Arbeit machen? Weiss der Mensch, dass Du keine Ahnung von VBA hast? Frage: Kannst Du (überhaupt) programmieren? Die Frage wird dir hier keiner gerne stellen, aber sie ist wirklich nicht böse gemeint, sondern soll uns nur ein Bild davon vermitteln, wie es um deine Programmierkentnisse steht.

Ich hab ein wenig recherchiert und eine Liste gefunden, die über VBA erstellt wurde.... mit einem Auslosungs-Button. (beide Tabellen in der Anlage).

Folgendes Problem: Die Auswahl der Objekte (jeder soll DREI "neue" Objekte erhalten) soll per Zufall erfolgen und kein Objektverantwortlicher darf eines seiner eigenen Objekte erhalten.

............ wie mache ich das denn nur?

Es gibt unterschiedliche Ansatze die man gehen kann, wobei ich jetzt erst mal keinen Code dafür schreiben würde, sondern viel mehr einen theoretischen Ansatz suchen. Du könntest z.B. so vorgehen:

- erstelle eine neue aufzählung (z.B. Dictionary, siehe hier: https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/dictionary-object) aus der bereits vorhandenen zelle/spalte und filtere beim erstellen der neuen liste die drei objekte raus, die nicht bei der zufallsauswahl erscheinen dürfen. Das kann man z.B. in einer form der for, while oder do schleife machen, in dem man die spalte mit den objekten durchläuft.
- in einer weiteren schleife kannst du dann z.B. über die Rnd() funktion drei zufällige objekte über deren Index (zufällige auswahl einer nummer von drei elementen aus z.B. 300 und diese dann der dictionary zuweisen) auslosen und in einer neuen Aufzählung speichern, wobei du nach jedem einzelnen Rnd() aufruf prüfen solltest, ob nicht ein ausgelostes objekt zufällig zwei mal ausgelost wird, um duplikate unter den drei neuen objekten zu vermeiden.

Das ist jetzt nur ein Beispiel. Es gibt noch viele andere Wege.

Gruß

K.

 

[jhkil9]

Was soll das? Weshalb gräbst du uralte Threads aus? 15.05.2014, 15:45