AW: UserForm automatisch ausblenden
01.01.2011 15:53:57
Josef
Hallo René,
eine Möglichkeit.
Den Namen des UF musst du ggf. anpassen.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub showForm()
Application.OnTime Now + TimeSerial(0, 0, 5), "unloadForm"
UserForm1.Show
End Sub
Sub unloadForm()
On Error Resume Next
Unload UserForm1
End Sub
Gruß Sepp