Registriert seit: 24.03.2016
Version(en): 2013
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
Registriert seit: 11.04.2014
Version(en): 2021
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.
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Registriert seit: 24.03.2016
Version(en): 2013
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
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
04.05.2019, 00:27
(Dieser Beitrag wurde zuletzt bearbeitet: 04.05.2019, 01:29 von 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
Angehängte Dateien
Dart_AutomatischeVorgabe.xlsm (Größe: 18,97 KB / Downloads: 18)