Sub auto_open()
Application.OnTime Now + TimeValue("00:00:02"), "Schließen"
UserForm2.Show
End Sub
Userform schliesst nicht warum?
Gruss
Rolf
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:02"), "Schließen"
UserForm2.Show
End Sub
Userform schliesst nicht warum?
Gruss
Rolf
Sub Schließen()
Unload UserForm1
End Sub
oder
Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 2)
Unload Me
End Sub