UserForm
18.11.2003 21:51:59
RoWeigert
ich möchte eine UserForm als Mitteilungstext öffnen, welche sich nach Zeitablauf (ohne etwas zu tun) wieder schließt.
Ich habe das in etwa so aufgebaut:
Private Sub UserForm_Initialize()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
UserForm6.Hide
End Sub
Da funktioniert aber nicht.
Geht das überhaupt?
Danke im voraus
Anzeige