AW: Drehfeld Zuweisung F9
15.12.2023 21:29:23
daniel
also dann mach ich erstmal deinen Job und beschreibe, was du (vermutlich) vorliegen hast und möchtest:
du hast dir eine Slotmaschine gebastelt, die auf Basis von Formeln läuft (weil du kein VBA kannst), dh das ganze wird über eine Formel ausgelöst, die Funktion ZufallsZahl() oder ZufallsBereich() enthält.
Durch Drücken der Taste F9 wird jetzt permanent eine Neuberechnung ausgeführt, was die Slotmaschine zum Drehen bringt, solange man die Taste F9 gedrückt hält. Jetzt möchtst du, dass nicht die Taste F9 die Slotmaschine in Gang setzt, sondern ein Button, den man mit der Maus anklicken kann.
habe ich das so richtig verstanden?
das ganze geht per VBA.
ins Modul "Modul1" muss dieser Code:
Option Explicit
Public xxx As Boolean
Public Sub SlotSpin()
Do While xxx
Application.Calculate
DoEvents
Loop
End Sub
dann legst du dir auf dem Tabellenblatt eine ActiveX-Commandbutton an fügst in das Modul des Tabellenblatts diese beiden Makros ein:
Option Explicit
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
xxx = True
Application.OnTime Now, "SlotSpin"
End Sub
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
xxx = False
End Sub
Die Slotmaschine läuft dann solange du den Mausbutton gedrückt hälst.
Gruß Daniel