VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Neue Klasse erstellen

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

    


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