Userform laden - Warten - manuell unterbrechen
12.09.2017 12:12:02
Jesn
Private Sub UserForm_Activate()
If N = "" Or N = 0 Then
Eingaben.Enabled = False
Else
Eingaben.Enabled = True
Application.Wait (Time + TimeSerial(0, 0, 3))
Unload Me
End If
End Sub
Es soll dann so sein, wenn jemand innerhalb der 3 Sekunden die Textbox N anklickt, (den Cursor reinsetzt) dann wird das Schließen der Userform abgebrochen und die userform bleibt da. Es würde auch reichen wenn jemand in die Fläche der Userform klickt.
Hat jemand eine Idee?
Anzeige