Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Start-UserForm zeitgesteuert anzeigen

Gruppe

Open

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