Wir wollen in diesem Artikel von der ersten Variante ausgehen. Die übrigen beiden Möglichkeiten, über das Application<\/b>-Objekt von Excel auf das angezeigte Workbook <\/b>mit den Worksheets und den enthaltenen Daten zuzugreifen, stellen wir in weiteren Artikeln vor.<\/p>\nVBA-Editor anzeigen<\/h2>\n
Wenn Du unter Excel bisher noch nicht oder nur in Zusammenhang mit dem Aufzeichnen von Makros mit dem VBA-Editor Kontakt hattest, ist dies der einfachste Weg, diesen zu aktivieren: Ist Excel geöffnet, betätigst Du einfach die Tastenkombination Alt + F11 <\/b>und der VBA-Editor erscheint.<\/p>\n
Dieser zeigt zu Beginn üblicherweise die Ansicht aus Bild 1 an. Es kann auch sein, dass der linke Bereich (der Projekt-Explorer) oder der untere Bereich nicht angezeigt werden. Diese kannst Du mit Strg + R <\/b>(Projekt-Explorer) und Strg + G <\/b>(Direktbereich) einblenden.<\/p>\n
![\"Der](\"..\/fileadmin\/_temp_\/2022_04\/pic_326_001.png\")
<\/p>\n
Bild 1: Der VBA-Editor für eine neue, leere Excel-Datei<\/span><\/b><\/p>\n Der Projekt-Explorer zeigt aktuell zwei Objekte an, nämlich ein Klassenmodul namens DieseArbeitsmappe<\/b>, dem Du Code hinzufügen kannst, der sich auf die komplette Arbeitsmappe bezieht und eines namens Tabelle1<\/b>, das den Code für das Worksheet beziehungsweise das Tabellenblatt namens Tabelle1 <\/b>aufnimmt. Fügen wir weitere Tabellenblätter hinzu, landen automatisch entsprechende Klassenmodule im VBA-Projekt der Excel-Datei.<\/p>\n Dass es sich bei den beiden Modulen um Klassenmodule und nicht um Standardmodule handelt, erkennt man nach dem Öffnen der Module, wenn man auf das linke obere Kombinationsfeld im Codefenster klickt. Hier erscheint beispielsweise für das Modul DieseArbeitsmappe <\/b>ein Eintrag namens Workbook<\/b> (siehe Bild 2), bei den Klassenmodulen zu den Tabellenblättern erscheint der Eintrag Worksheet<\/b>.<\/p>\n Bild 2: Auswahl der Klasse, auf welches sich das Klassenmodul bezieht<\/span><\/b><\/p>\n Wir können die Klasse, auf das sich die Klassenmodule beziehen, also direkt auswählen. Was geschieht danach? Der VBA-Editor legt direkt nach der Auswahl eine Prozedur für das Standardereignis dieser Klasse an, im Fall des Moduls DieseArbeitsmappe <\/b>das Ereignis Workbook_Open <\/b>(siehe Bild 3).<\/p>\n Bild 3: Auswahl der Ereignisse der Klasse<\/span><\/b><\/p>\n Außerdem können wir nach der Auswahl des Eintrags Workbook<\/b> im rechten Kombinationsfeld die übrigen Ereignisse der Klasse auswählen und somit weitere Ereignisprozeduren anlegen.<\/p>\n Aus Sicht von VBA hat jede Excel-Datei ein eigenes VBA-Projekt. Wenn Du mehrere Excel-Dateien auf dem gleichen Rechner öffnest und den VBA-Editor aktivierst, findest Du im Projekt-Explorer für jede Excel-Datei ein eigenes VBA-Projekt.<\/p>\n Bei drei geöffneten Excel-Dateien erscheinen diese im Projekt-Explorer wie in Bild 4.<\/p>\n Bild 4: Projekt-Explorer mit mehr als einem Excel-VBA-Projekt<\/span><\/b><\/p>\n Jedes dieser VBA-Projekte enthält genau ein Klassenmodul des Typs Workbook <\/b>und ein oder mehrere des Typs Worksheet<\/b>. Auch diese sind in der Abbildung gut zu erkennen.<\/p>\n Um auf ein Workbook zuzugreifen, gibt es verschiedene Möglichkeiten. Das aktive Workbook, also das Workbook, das aktuell in Windows den Fokus hat, können wir mit dem folgenden Ausdruck referenzieren:<\/p>\n Wenn mehrere Workbooks und somit mehrere Excel-Fenster geöffnet sind, gilt dies ebenfalls.<\/p>\n Diesen Befehl setzen wir beispielsweise im Direktbereich des VBA-Editors ab, der sich zum Ausprobieren einzelner Anweisungen gut eignet (siehe Bild 5).<\/p>\n Bild 5: Zugriff auf das aktuelle Workbook-Element<\/span><\/b><\/p>\n Wenn Du hingegen das Workbook referenzieren willst, das zum aktuellen VBA-Projekt gehört, verwendest Du die Funktion ThisWorkbook<\/b>. Diese Funktion liefert einen Verweis auf das Workbook, in dessen VBA-Projekt die Funktion aufgerufen wird.<\/p>\n Wenn Du diesen Aufruf wie folgt in einer Prozedur unterbringst, ist der Fall klar – es liefert den Namen des Workbooks, zu dem das VBA-Projekt gehört und niemals das eines anderen VBA-Projekts:<\/p>\n Wenn Du den Namen hingegen über den Direktbereich abfragst, und der VBA-Editor zeigt gerade mehr als ein VBA-Projekt an, weil mehr als eine Excel-Datei geöffnet ist, dann liefert ThisWorkbook.Name <\/b>den Namen des Workbooks, das gerade im Projekt-Explorer markiert ist (beziehungsweise eines der enthaltenen Elemente).<\/p>\n Weiter oben haben wir gesagt, dass die Application<\/b>-Klasse das oberste Element im VBA-Objektmodell von Excel ist. Wie können wir jetzt ohne Nutzung von Application <\/b>auf ein Element wie ActiveWorkbook <\/b>zugreifen? Der Grund ist, dass wir die Elemente der Application<\/b>-Klasse innerhalb des eigenen VBA-Projekts auch ohne Angabe von Application nutzen können.<\/p>\n Wir können also alle Eigenschaften und Methoden, die sich unterhalb des Application<\/b>-Objekts befinden, direkt angeben und nutzen. Welche das sind, sehen wir im Objektkatalog, den wir mit der Taste F2 <\/b>öffnen können. Wählen wir hier ganz oben die Bibliothek Excel <\/b>aus, finden wir unter Klassen <\/b>schnell den Eintrag Application<\/b>.<\/p>\n Klicken wir diesen an, zeigt der Objektkatalog auf der rechten Seite alle enthaltenen Elemente an (siehe Bild 6).<\/p>\n Bild 6: Elemente der Application-Klasse im Objektkatalog<\/span><\/b><\/p>\n Somit können wir nicht nur über die Eigenschaft ActiveWorkbook <\/b>auf das aktuelle Workbook zugreifen, sondern auch auf eine Auflistung wie Workbooks. Diese liefert die Anzahl der aktuell geöffneten Workbooks beziehungsweise Excel-Dateien – wieder im Direktbereich eingesetzt:<\/p>\n Dieses Ergebnis erscheint, wenn wie in der obigen Abbildung drei Workbooks geöffnet sind.<\/p>\n Wenn wir alle aktuell geöffneten Workbook<\/b>-Elemente ermitteln wollen, reicht der Direktbereich allerdings nicht mehr aus.<\/p>\n Dazu legen wir eine Prozedur an, was wir wahlweise in einem der beiden vorhandenen Klassenmodule erledigen können oder auch in einem neuen Standardmodul.<\/p>\n In dieser Prozedur deklarieren wir eine Variable namens objWorkbook<\/b>, mit der wir jeweils ein Workbook referenzieren wollen.<\/p>\n Danach durchlaufen wir in einer For Each<\/b>-Schleife alle Elemente der Workbooks<\/b>-Auflistung und referenzieren dabei das aktuelle Elemente jeweils mit der Variablen objWorkbook<\/b>:<\/p>\n Das Ergebnis sehen wir in Bild 7.<\/p>\n Bild 7: Ausgabe der Workbooks<\/span><\/b><\/p>\n Wir können die Workbooks nicht nur durchlaufen, sondern diese auch gezielt referenzieren. Dabei verwenden wir ebenfalls die Workbooks<\/b>-Auflistung. Außerdem geben wir in Klammern den Namen des Workbooks an:<\/p>\n Wenn mehrere Workbooks in Excel geöffnet sind und Du eines der Workbooks aktivieren möchtest, sodass es im Vordergrund von Windows angezeigt wird, kannst Du die Activate<\/b>-Methode des Workbook<\/b>-Objekts verwenden. Für ein Workbook namens Mappe7 <\/b>gelingt dies beispielsweise wie folgt:<\/p>\n Nach diesem Schritt ist dieses Workbook übrigens auch über die Eigenschaft ActiveWorkbook <\/b>erreichbar.<\/p>\n Wir können per VBA auch neue Workbooks erstellen – dies hat den gleichen Effekt, als wenn wir einfach eine neue Excel-Instanz öffnen und dort eine neue Arbeitsmappe erstellen. Dazu benötigen wir lediglich den Befehl Add <\/b>der Workbooks<\/b>-Auflistung:<\/p>\n Setzen wir diesen im Direktbereich ab, erscheint direkt eine neue Excel-Instanz mit der neuen Arbeitsmappe. Entsprechend finden wir auch im Projekt-Explorer direkt einen neuen Eintrag für das VBA-Projekt dieser Arbeitsmappe mit Workbook<\/b>– und Worksheet<\/b>-Klassen vor.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Klassenmodule für Workbook und Worksheet<\/h2>\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2022_04\/pic_326_002.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2022_04\/pic_326_003.png\")
<\/p>\nWorkbook: Kein Buch, sondern eine Datei<\/h2>\n
![\"Projekt-Explorer](\"..\/fileadmin\/_temp_\/2022_04\/pic_326_006.png\")
<\/p>\nAuf aktives Workbook zugreifen<\/h2>\n
ActiveWorkbook.Name\r\nVBAZugriffAufExcelElemente.xlsx<\/pre>\n
![\"Zugriff](\"..\/fileadmin\/_temp_\/2022_04\/pic_326_005.png\")
<\/p>\nWorkbook des aktuellen VBA-Projekts referenzieren<\/h2>\n
Private Sub <\/span>Workbook()\r\n Debug.Print<\/span> \"ThisWorkbook: \" & ThisWorkbook.Name\r\nEnd Sub<\/span><\/pre>\nDirekter Zugriff auf die Elemente der Application-Klasse<\/h2>\n
![\"Elemente](\"..\/fileadmin\/_temp_\/2022_04\/pic_326_004.png\")
<\/p>\nAuf die Liste der Workbooks zugreifen<\/h2>\n
Workbooks.Count\r\n3<\/pre>\n
Alle geöffneten Workbooks durchlaufen<\/h2>\n
Private Sub <\/span>AlleWorkbooks()\r\n Dim <\/span>objWorkbook As <\/span>Workbook\r\n For Each objWorkbook In Workbooks\r\n Debug.Print<\/span> objWorkbook.Name\r\n Next<\/span> objWorkbook\r\nEnd Sub<\/span><\/pre>\n![\"Ausgabe](\"..\/fileadmin\/_temp_\/2022_04\/pic_326_007.png\")
<\/p>\nWorkbook per Name referenzieren<\/h2>\n
Dim <\/span>objWorkbook As <\/span>Workbook\r\nSet<\/span> objWorkbook = Workbooks(\"Mappe7\")\r\nDebug.Print<\/span> objWorkbook.Name<\/pre>\nWorkbook aktivieren<\/h2>\n
Dim <\/span>objWorkbook As <\/span>Workbook\r\nSet<\/span> objWorkbook = Workbooks(\"Mappe7\")\r\nobjWorkbook.Activate<\/pre>\nNeues Workbook erstellen<\/h2>\n
Workbooks.Add<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t