Userform nach zeit ausblenden
29.01.2004 04:39:08
Stefan Glander
ich möchte das sich die UF nach 1 Sekunde von allein schließt.
Wo mache ich den Fehler ?
Private Sub CommandButton1_Click()
UserForm1.Show
UserForm_Activate
End Sub
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("0:00:01")
Unload Me
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Gruss
Stefan Glander