Re: Userform nach gewisser Zeit automatisch schließen
22.05.2003 15:46:46
Nepumuk
Hallo Lars,
in das Klassenmodul "DieseArbeitsmappe":Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime verzoegerung, "Ende", , False
End Sub
in das Klassenmodul der Userform:
Private Sub UserForm_Activate()
verzoegerung = Time + TimeSerial(0, 0, 20)
Application.OnTime verzoegerung, "Ende"
End Sub
Private Sub UserForm_Click()
Application.OnTime verzoegerung, "Ende", , False
verzoegerung = Time + TimeSerial(0, 0, 20)
Application.OnTime verzoegerung, "Ende"
Beep
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub
in ein "normales" Modul:
Public verzoegerung As Date
Public Sub Ende()
Unload UserForm1
End Sub
da du nicht schreibst, welche Steuerelemente in der Userform sind und was eventuell damit für Aktionen verbunden sind, musst du dir den Rest selbst entwickeln.
Gruß
Nepumuk