ich habe schon wieder ein Problem
Wenn UserForm1 aufgerufen wurde und 5 Sekunden nichts angeklickt wurde soll das komplette Makro abbrechen und eine Messagebox gestartet werden.
Das Funktioniert auch.
Aber wenn was gewäht wurde soll die MessageBox nicht kommen.
Das steht im allgemeinen Modul
Sub UnloadFormular()
Unload UserForm1
MsgBox "Abbruch da UserForm1 nicht bestätigt!", 0, "Achtung Fehler"
Exit Sub
End Sub
Und das in der UserForm
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "UnloadFormular"
End Sub
Hat einer eine Idee was falsch ist ?
Anbei die Testdatei.
https://www.herber.de/bbs/user/136408.xlsm
Liebe Grüße
Sabbel