Gruppe
VBE
Bereich
Klasse
Thema
Neue Klasse erstellen
Problem
Wie kann ich eine neue Klasse für ein Ereignis erstellen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
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