VBA – Programmierung mit Excel Grundlagen

Seite 86
Dialoge (Teil II)
12.2 Formularsteuerelemente
Die Formularsteuerelemente, enthalten in der Symbolleiste Formular sind nur mit
Einschränkungen dafür geeignet, in einem steuernden Dialog verwendet zu werden, weil sie
eigentlich darauf ausgerichtet sind, ohne VBA – Code auszukommen. Ihre
Programmierbarkeit beschränkt sich in der Praxis auf die Zuweisung von Makros (Subs).
Außer einer kleinen Beispielanwendung mit diesen Steuerelementen werden deshalb in
dieser Unterlage hauptsächlich die Steuerelemente der Toolbox behandelt.
Abbildung 25: Die Symbolleiste FORMULAR
Zwei der Steuerelemente der Symbolleiste FORMULAR können jedoch durchaus für die
Gestaltung von Formularen (insbesondere von „Eingangsformularen“), trotz der oben
genannten Einschränkung, gut benutzt werden – die Elemente BEZEICHNUNGSFELD und
SCHALTFLÄCHE.
Die Anwendung dieser Elemente in einem Formular zeigt das Beispiel einer sehr einfachen
Anwendung im Kapitel 12.4.
12.3 Ein Tabellenformular öffnen
Ein im Tabellenblatt erzeugtes Formular sollte nach dem Öffnen der Arbeitsmappe aktiv sein.
Eine Arbeitsmappe zeigt als aktives Tabellenblatt immer das Blatt, welches beim Verlassen
der Arbeitsmappe aktiv war. Direkt kann per Programm ein Tabellenblatt geöffnet werden
über die Anweisungen:
Worksheets(Tabellenname).Activate
Worksheets(Index).Activate
Index ist der Positionsindex des Tabellenblattes in der Arbeitsmappe. Sicherer ist es, den
Blattnamen zu verwenden, da sich die Reihenfolge der Tabellenblätter zur Laufzeit eines
Programms ändern kann und damit der angegebene Indexwert auf ein falsches Blatt zeigen
kann.
Worksheets("Startmenu").Activate
Worksheets(1).Activate
Zur Sicherheit sollte der Aufruf um den Namen des Arbeitsmappe erweitert werden, da man
nicht immer davon ausgehen kann, daß das zu aktivierende Tabellenblatt in der gerade
aktiven Arbeitsmappe liegt:
Workbooks("Mappe5").Worksheets("Startmenu").Activate
Workbooks("Mappe5").Worksheets(1).Activate
Workbooks("Kosten.xls").Worksheets("Startmenu").Activate
Ist die benötigte Arbeitsmappe nicht geöffnet, kann sie mit
Workbooks.Open("Kosten.xls")
im aktuellen Ordner geöffnet werden. Anschließend wird das gewünschte Tabellenblatt mit
dem Formular aktiviert.
Befindet sich die Arbeitsmappe in einem anderen Ordner, sollte der komplette Pfad
angegeben werden:
Workbooks.Open("D:\Bilanz\Abt1\Kosten.xls")
➨ Geschlossen wird eine Arbeitsmappe mit einem Befehl der Form:
Workbooks("Kosten.xls").Close
➨ Soll das Schließen ohne Abfrage nach dem Speichern eventueller Änderungen erfolgen,
wird die Anweisung erweitert:
Workbooks("Kosten.xls").Close SaveChanges := True
Workbooks("Kosten.xls").Close SaveChanges := False