Application.Wait + Ok-Button
08.02.2004 19:37:48
Franz W.
ich habe eine UF, die autoamtisch nach einer bestimmten Zeit schließt:
Private Sub UserForm_Activate()
Application.Wait (Now + TimeSerial(0, 0, 15))
Unload Me
End Sub
Nun sollte es aber auch die Möglichkeit geben, bereits vor Ablauf dieser Zeit die UF mittels eines OK-Buttons zu schließen. Der ist aber innerhalb der vorgegebenen Zeit noch nicht zugänglich, man muss die Zeit absitzen. Lässt sich das umgehen? Gibt's da eine andere Möglichkeit?
Vielen Dank für Eure Hilfe im Voraus und Grüße
Franz
Anzeige