Gruppe
VBE
Problem
Wie kann ich eine neue Klasse für ein Ereignis 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