Modellbasiertes Logistikmanagement - Prof. Dr. Heinz-Michael ...

Modellbasiertes LogistikmanagementA.5.10.5Eingabe des Programmcodes für die EreignisprozedurNun können Ereignisprozeduren für das neue Objekt in Abhängigkeit vonEreignissen hinzugefügt werden. Mithilfe der EnableEvents-Eigenschaft könnendabei Ereignisse gezielt aktiviert und deaktiviert werden.Beispielsweise führt das Speichern einer Arbeitsmappe mit der Save-Methode zumAuftreten des BeforeSave-Ereignisses. Das Aufrufen der zugehörigenEreignisprozedur kann verhindert werden, indem die EnableEvents-Eigenschaft aufFalse gesetzt wird, bevor die Save-Methode aufgerufen wird.BeispielApplication.EnableEvents = FalseActiveWorkbook.SaveApplication.EnableEvents = TrueA.5.10.6Ausführen der EreignisprozedurBevor schließlich Prozeduren ausgeführt werden können, muss das deklarierteObjekt im Klassenmodul mit dem Application-Objekt verbunden werden. Dazu kannfolgender Code verwendet werden:Dim X As New EventClassModuleSub InitializeApp()Set X.App = ApplicationEnd SubNachdem die Prozedur InitializeApp ausgeführt wurde, zeigt das App-Objekt imKlassenmodul auf das Application-Objekt von Excel. Außerdem werden dieEreignisprozeduren im Klassenmodul ausgeführt, sobald ein Ereignis eintritt.90