Excel und VBA: Formeln, Programmierung, Lösungen

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