Thema: Neue Klasse erstellen

ClassModule: DieseArbeitsmappe

Dim MyObject As New Klasse1

Private Sub Workbook_Open()
   Set MyObject.appevent = Application
End Sub

ClassModule: Klasse1

Public WithEvents appevent As Application

Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, _
   ByVal Wn As Excel.Window)
   MsgBox "Die Fenstergröße wurde verändert"
End Sub

Private Sub appevent_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, _
   Cancel As Boolean)
   MsgBox "Feierabend!"
End Sub

Private Sub appevent_WorkbookOpen(ByVal Wb As Excel.Workbook)
    MsgBox "Guten Morgen!"
End Sub

StandardModule: basMain

Dim MyObject As New Klasse1

Beiträge aus dem Excel-Forum zu den Themen VBE und Klasse