Do While während Button gedrückt
16.03.2020 16:16:53
Max
ich habe folgende Fragestellung:
während ich einen Button in einer userform gedrückt halte, möchte ich, dass eine Zahl immer um 1 addiert wird. Sobald ich den Button loslasse, soll diese Schleife gestoppt werden.
Bislang versuche ich das ganze mit einer globalen Variablen zu lösen, was aber nicht klappt:
Im Modul:
Public IsMouseDown As Boolean
Im Formular:
Private Sub CommandButton3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X _
_
_
As Single, ByVal Y As Single)
IsMouseDown = True
Do While IsMouseDown
ActiveCell.Value = ActiveCell.Value + 1
If ActiveCell.Value > 100 Then
Exit Do
End If
If IsMouseDown = False Then
Exit Do
End If
Loop
Private Sub CommandButton3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
_
_
Single, ByVal Y As Single)
ActiveCell.Value = 1000
IsMouseDown = False
End Sub
Die Schleife läuft bis zum Notschalter (dem kleinen Counter) durch, sodass mouseUp immer danach ausgewertet wird.
Warum gehts nicht und... geht das überhaupt?