Gruppe
Ereignis
Bereich
Open
Thema
Start-UserForm zeitgesteuert anzeigen
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe eine UserForm für eine vorgegebene Zeit anzeigen lassen und die Arbeitsmappe nach der Anzeige wieder schließen?
Lösung
Geben Sie den Ereigniscode in die genannten Klassenmodule ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
frmHWH.Show
End Sub
StandardModule: modMain
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Warten()
Dim i%
For i = 1 To 10
frmHWH.Label1.Caption = i
frmHWH.Repaint
Sleep 1000
Next i
End Sub
ClassModule: frmHWH
Private Sub UserForm_Activate()
frmHWH.Repaint
Call Warten
Unload Me
ThisWorkbook.Close savechanges:=False
End Sub