Gruppe
Dialog
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe einen Stardialog anzeigen lassen, der eine vorzugebende Zeit am Bildschirm verweilt?
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