13.07.2015 Aufrufe

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

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

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

MEHR ANZEIGEN
WENIGER ANZEIGEN

Erfolgreiche ePaper selbst erstellen

Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.

Crash-Kurs in Excel VBAUm Ereignisprozeduren für ein Diagramm, eine QueryTable-Objekt oder einApplication-Objekt zu schreiben, muss unter Verwendung des SchlüsselwortesWithEvents in einem Klassenmodul zunächst ein neues Objekt erstellt werden:[Dim | Public | Private] WithEvents Objektvariable As KlassennameDas Schlüsselwort WithEvents gibt an, dass die Objektvariable auf Ereignissereagieren kann, die von einem ActiveX-Objekt wie einer Befehlsschaltfläche odereinem Textfeld ausgelöst wurden. Eine solche Deklaration ist auf Klassenmodulebeschränkt und die betreffende Klasse muss dabei natürlich Ereignisse auslösen. MitWithEvents können beliebig viele Variablen deklarieren werden, jedoch keineDatenfelder. Instanzierung mit New kann nicht zusammen mit WithEventsverwendet werden.WithEventsA.5.10.4Deklaration einer Objektvariablen vom Typ ApplicationDas Application-Objekt bietet eine Vielzahl von Ereignissen der Excel-Anwendungan, die ausgewertet werden können. Bevor man jedoch ein Ereignis mit demApplication-Objekt verwenden kann, muss• ein Klassenmodul, beispielsweise mit dem Namen EventClassModule erstellt• und für Ereignisse ein Objekt, beispielsweise mit dem Namen App, vom TypApplication deklariert werden.Das neue Klassenmodul enthält dann den folgenden Code:Public WithEvents App As ApplicationDas neue Objekt wird durch den VisualBasic Editor im Klassenmodul dann im<strong>Dr</strong>opdown-Listenfeld Objekt angezeigt. Wählt man das neue Objekt App imAnzeigefeld Objekt aus, so werden die gültigen Ereignisse für dieses Objekt im<strong>Dr</strong>opdown-Listenfeld Prozedur angezeigt.89

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!