Zufallszahl nach vorgegebener Zeit wechseln

[jjradu]

Hallo Zusammen.

Formel für eine Zufallszahl habe ich. =ZUFALLSZAHL()*(100-2)+2
Sie zeigt mir durch drücken von zB F9, Zahlen zwischen 2 und 100 an.

Jetzt möchte ich gerne das dies nicht mehr durch drücken einer Taste geschieht....sondern sich zB alle 15 Sekunden die Zufallszahl selber erneuert.

Ich finde da einfach nichts und wäre für jede Hilfe sehr dankbar.

Gruß Jürgen

[Glausius]

Hallo Jürgen,

was soll dann überhaupt passieren und wozu?
Mittels VBA-Code könne man das schon hinbekommen, nur, wenn das Makro läuft geht nichts anderes mehr in der Datei - deshalb die vorstehende Frage.

[jjradu]

Spiele Dart.
Möchte gern die mir vorgegebene Zahl mit 3 Wurf checken.
Nach ca.20 Sekunden sollte neue zufällige Zahl dort stehen.

Will nicht immer wieder F9 zB drücken.

Werfen...Monitor schauen...werfen. So sollte es laufen

[Kuwer]

Hallo Jürgen,

hier mal ein Entwurf:

' **************************************************************
'  Modul:  DieseArbeitsmappe  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit

Private Sub Workbook_Deactivate()
 StartStop False
End Sub

' **************************************************************
'  Modul:  Modul1  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Sub StartStop(Optional AnAus As Variant)
 Static datZeit As Date
 If IsMissing(AnAus) Then
   If datZeit = 0 Then
     Tabelle1.Range("B2").Calculate
     datZeit = Now + TimeSerial(0, 0, 20)
     Application.OnTime EarliestTime:=datZeit, Procedure:="'StartStop True'"
   Else
     Application.OnTime EarliestTime:=datZeit, Procedure:="'StartStop True'", Schedule:=False
     datZeit = 0
   End If
 Else
   If AnAus = True Then
     Tabelle1.Range("B2").Calculate
     datZeit = Now + TimeSerial(0, 0, 20)
     Application.OnTime EarliestTime:=datZeit, Procedure:="'StartStop True'"
   Else
     If datZeit >= Now Then
       Application.OnTime EarliestTime:=datZeit, Procedure:="'StartStop True'", Schedule:=False
       datZeit = 0
     End If
   End If
 End If
End Sub

Sub Test()
 StartStop False
End Sub

Gruß Uwe