Igelnet.de Forum (http://www.igelnet.de/wbblite/index.php)
- Igelnet.de (http://www.igelnet.de/wbblite/board.php?boardid=1)
-- EXCEL Allgemein (http://www.igelnet.de/wbblite/board.php?boardid=2)
--- zufallsgenerator (http://www.igelnet.de/wbblite/threadid.php?threadid=9)

zufallsgenerator

hey, ich hab da nen problem und zwar möchte ich ein zufallsgenerator erstellen, ich hab mich zwar schon ein bisschen umgeguckt aber bin nicht fündig geworden ich möchte zum einen 100 liedtitel eingeben und zum anderen dann etwa 30 namen von personen und der zufallsgenerator soll ermitteln welcher von diesen 30 namen einen von den 100 liedtiteln singen muss (anbei soll für eine karaokeparty sein) erstmal bin ich noch anspruchslos aber vllt ginge es sogar dies ein bisschen grafisch zu unterlegen wie eine zeitverzögerung bis zur auswahl damit es spannend wird... ich bedanke mich schon mal im voraus anbei sei gesagt das ich in excel ziemlich unbewandert bin außer halt die grundformen zum rechnen

Hallo zusammen,
Ich habe dir hier mal ein Beispiel hochgeladen wie das aussehen könnte.
Neu auswählen kannst du das in dem du die Taste F9 drückst.

Allerdings gibt es da keine Verzögerung.
Das geht glaube ich nur mit VBA.

Damit kenne ich mich aber nicht so aus
Viel Spaß beim probieren

Gruß Holger

__________________
Feedback wäre nett

Hallo, consummate.
Ich fand das Problem interessant. Ich kann auch kein VBA, arbeite aber gelegentlich mit aufgezeichneten makros. Das funktioniert in diesem Fall gut, ich mische die Titel und die Teilnehmer jeweils mit 100 Zufallszahlen und der "Sortieren"-Funktion. Herr Igel bietet die Mappe "warten.xls" auf dieser Seite zum Download an. Es sollte kein Problem sein, den code aus seinem modul1 zu stiebitzen, und damit auch noch eine Zeitverzögerung einzubauen. Ich denke, er hat nichts dagegen.
Bevor ich mir diese Arbeit mache, wüßte ich gerne, ob du vielleicht Holgers Lösung benutzt, oder sowieso kein Interesse mehr hast. Wenn du die Mappe haben möchtest, schreib bitte kurz und teile auch die Verzögerungszeit dabei. Diese kann ich leider nicht variabel gestalten.
Gruß
Peter

Hallo zusammen,
ich habe meinem Beispiel eine Verzögerung eingebaut.
wie gesagt, meine Macro-Kenntnisse beschränken sich auf das einfügen, das geht bestimmt einfacher.
Sollte eine Anregung sein.

1. Schritt: , ein Macro eingefügt das dafür sorgt, das die Tabelle regelmäßig neu berechnet wird. : Sub Timer ()
Ich habe den Timer auf 2sek. gestellt

2. Schritt: ein Macro aufgezeichnet, das mir drei Zellen kopiert: ( beides mit Werte einfügen )
I1 nach I2 (aktuelle Uhrzeit)
und
H5:I5 nach E5:F5 (aktuelle Auswahl)

3. Schritt: Eine bedingte Formatierung für die Zellen E5:F5 eingefügt wo Text- und Hintergrundfarbe gleich ist
damit der Eintrag erst sichtbar wird wenn die Wartezeit abgelaufen ist

Spalten H und I jetzt noch ausblenden
und fürs kopieren-Macro noch eine Schaltfläche aus der Format-Symbolleiste eingefügt
Fertig

Gruß Holger

__________________
Feedback wäre nett

Hallo, Holger !
Macht Spaß, deinen Lösungsweg zu sehen. Bereich.Verschieben kannte ich gar nicht, ich habe für ähnliche Zwecke mit Verweisen gearbeitet, die Variabele enthalten. Kann ich sicher mal brauchen . DANKE.
Wenn der Kollege sich hier nicht mehr meldet, müssen wir beide mal 'ne Karaoke-Party arrangieren . . .
Gruß aus Oldenburg,
Peter

Hallo peter
Karaoke-Party, na ja, ich bleibe lieber im Hintergrund
und probiere was neues mit Excel

Oldenburg (OL)?
Das ist nicht weit weg von hier

Nachtrag:
ich habe im Beispiel zur Erstellung der Zufallszahl eine Formel aus dem Netz genommen.
=RUNDEN(ZUFALLSZAHL()*(X-Y)+Y;0)
X=kleinste mögliche Zahl
Y=Größte mögliche Zahl

Wenn man sich die Formel mal näher anschaut stellt man fest,
das durch das Runden die nierigste und höchste Zahl wahrscheinlich nur 1/2 so oft ermittelt wird wie alle anderen!
Deshalb habe ich sie im Beispiel geändert

Schöne Grüße
Holger

__________________
Feedback wäre nett

hallo jungs, ich bedanke mich für eure zahlreiche bemühungen wegen den ganzen planungen und klausuren schreiben hatte ich keine zeit nochmal vorbei zu schauen, das problem ist nur ich bräuchte das jetzt schon zu morgen ich denke nicht das meine mail rechtzeitig zu lesen ist dennoch ist es gut sowas für die zukunft zu wissen ... leider hab ich von makro null komma nix ahnung hehe =)

Hallo, ihr zwei !

An Consummate:
Schön, daß du dich nochmal gemeldet hast, schade, daß es nun zu spät ist. Die 2-3 Stunden Arbeit, das Ding übergabefertig zu machen, kann/will ich mir heute nacht nicht mehr machen.
Bis irgendwann wieder ? !
An Holger: Hallo, herzlichen Gruß.
Ich habe meinen Entwurf noch nicht vorgezeigt, vielleicht interessiert's, wie ich die Sache gelöst habe, ich versuche mal, es kurz zu beschreiben:
die Namen und die titel werden in eine Liste kopiert, in der jeweils links daneben Zufallszahlen generiert werden. Also max. 100 Namen, max. 100 Titel, 200 Zufallzahlen (NICHT gerundet, 16-Stellig). Dann werden die Zufallszahlen schlicht mit der sortieren-funktion aufsteigend sortiert. Jeweils 2 Spalten: 100 Z-zahlen und was rechts daneben steht. Der Name bzw. der Titel wird dabei jeweils mitgenommen. Jetzt sind sowohl Namen als auch Titel völlig bunt gemischt. Die gemischte Liste wird noch einmal kopiert in eine kladde. Das ganze als makro aufgezeichnet mit einer Schaltfläche "Daten Laden"
Ein zweites makro mit Schaltfläche ("Ziehung") macht einfach folgendes: Die obere Zeile der kladde wird auf das Blatt "Anzeige" übertragen, dann wird die obere Zeile der kladde entfernt ("Zellen löschen"). So wird die gemischte Liste bei jedem Klick auf "Ziehung" Zeile für Zeile angezeigt.
Tschüß bis irgendwann demnächst,
Peter