VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Start-UserForm zeitgesteuert anzeigen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open