Ich versuche mal kurz zu erklären was ich genau suche. Wir sind 35 Leute.Diese 35 Personen bekommen eine vorher geloste Zahl. Am Bildschirm soll dann alle 10 Sekunden eine Zahl von 1-35 auftauchen....und die Person mit der gelosten Zahl ist dann an der Reihe. Zu sagen ist noch, das es keine doppelten Zahlen geben darf...also nicht das zweimal z.B. die 13 angezeigt wird.
Kann man so etwas als Excel Datei machen? Und wenn ja, kann mir evtl sogar jemand die Datei erstellen?
Ich habe schon viel versucht, aber es klappt einfach nicht. Durch Tastendruck ne andere Zahl, das habe ich hinbekommen. Aber nicht das nach 10Sek sich die Zahl ändert.
Ja das ist schonmal "fast" das was ich suche. Aber ich möchte nicht jedesmal auf "Bingozahl" klicken....sondern die Zahl soll sich alle 10 Sek automatisch ändern...gezogen werden.
für die 10 Sekunden-Periode kann man den Timer nutzen:
Code:
Declare PtrSafe Function SetTimer Lib "USER32.DLL" ( _ ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongPtr, ByVal lpTimerFunc As LongPtr) As LongPtr ' UINT_PTR
Declare PtrSafe Function KillTimer Lib "USER32.DLL" ( _ ByVal hWnd As LongPtr, ByVal uIDEvent As LongPtr) As LongPtr 'Starten im Menü "Ansicht: Makro (nicht im VBE)
Public Zeit as date
Sub Timerproc(ByVal hWnd&, ByVal msg&, ByVal TimerID&, ByVal dwTime&)
If Now > Zeit + TimeValue("00:00:30") Then _ Debug.Print KillTimer(Application.hWnd, TimerID&), TimerID&, dwTime& End Sub
Sub Calca()
SetTimer Application.hWnd, 998877, 10000, AddressOf Timerproc Zeit = Now End Sub
Eindeutige Zufallszahlen kann man mit "Rank" und "Rand" erzeugen.
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
