Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingangsbildschirm anzeigen

Gruppe

UserForm

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