Gruppe
Dialog
Bereich
UserForm
Thema
Eingangsbildschirm anzeigen
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe einen Stardialog anzeigen lassen, der eine vorzugebende Zeit am Bildschirm verweilt?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
frmSplash.Show
End Sub
ClassModule: frmSplash
Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 2)
Unload Me
End Sub