In VBA-Projekten kann es vorkommen, dass Anweisungen nur in bestimmten Situationen kompiliert werden sollen. Das bekannteste Beispiel sind die Deklarationen von API-Funktionen, die je nach VBA-Version mal in der 32-Bit- und mal in der 64-Bit-Variante bereitgestellt werden sollen. Da die 64-Bit-Version bei Verwendung von 32-Bit-Access unter Umständen Datentypen mit sich bringt, die es in der 32-Bit-Version nicht gibt, würde dies beim Kompilieren zu Fehlern führen. Daher gibt es die sogenannte bedingte Kompilierung, bei der man mit speziellen If…Then-Bedingungen dafür sorgen kann, dass nur die für die aktuelle Version relevanten Codezeilen kompiliert werden können. In diesem Artikel zeigen wir, wie die bedingte Kompilierung funktioniert. Außerdem stellen wir ein weiteres Beispiel vor, in dem wir entweder die Early Binding- oder die Late Binding-Verwendung von Variablen nutzen wollen – abhängig von einer zur Laufzeit gesetzten Bedingung.<\/b><\/p>\n
Bedingte Kompilierung<\/h2>\n
Die bedingte Kompilierung arbeitet mit If…Then<\/b>-Bedingungen, die mit einem vorangestellten Raute-Zeichen angelegt werden:<\/p>\n Hier haben wir bereits die erste von einigen wenigen eingebauten Kompilierungskonstanten verwendet, nämlich VBA7<\/b>. Diese hat den Wert True<\/b>, wenn VBA in der Version 7 verwendet wird. Den Wert dieser Konstanten können wir nur in einer mit dem Raute-Zeichen beginnenden Zeile auslesen, sie kann nicht einfach mit Debug.Print ermittelt werden. Die folgende Anweisung liefert kein Ergebnis:<\/p>\n Wir können aber eine Prozedur schreiben, in der wir per #If…#Then<\/b>-Bedingung prüfen, ob VBA7 <\/b>den Wert True <\/b>oder False <\/b>hat:<\/p>\n Dies liefert für aktuelle Office-Versionen (ab Version 2010) den Wert VBA7<\/b>.<\/p>\n Auf die gleiche Weise können wir herausfinden, ob die aktuelle Office-Version in der 32-Bit- oder in der 64-Bit-Version vorliegt.<\/p>\n Hier verwenden wir die Kompilierungskonstante Win64<\/b>:<\/p>\n Wir können auch explizit auf die 32-Bit-Version prüfen:<\/p>\n Wir können auch eigene Kompilierungskonstanten definieren und diese per #If…#Then<\/b>-Bedingung abfragen.<\/p>\n Diese Konstanten müssen ohne Datentyp angegeben werden und werden ebenfalls mit führenden Raute-Zeichen definiert, zum Beispiel:<\/p>\n Die Konstanten dürfen außerdem nur Long<\/b>-Werte enthalten. <\/p>\n Diese fragen wir dann wie folgt ab:<\/p>\n Wenn wir auf dem Entwicklungsrechner mit Early Binding arbeiten wollen, um IntelliSense nutzen zu können, aber auf dem Produktivrechner sicherstellen wollen, dass das Projekt auch ohne Vorhandensein der jeweiligen Bibliothek zumindest ohne Kompilierfehler verwendet werden kann, können wir hier die Anweisungen zum Deklarieren und Initialisieren von Objektvariablen einfügen:<\/p>\n Wenn wir #cEarlyBinding <\/b>auf -1 <\/b>einstellen, werden die Anweisungen im #If<\/b>-Teil der Bedingung kompiliert und ausgeführt, andernfalls die aus dem #Else<\/b>-Teil. Das können wir leicht prüfen, indem wir die Anweisungen schrittweise durchlaufen.<\/p>\n Wenn wir die Konstante #cEarlyBinding <\/b>auf den Wert -1 <\/b>einstellen und die Bibliothek Microsoft ActiveX Data Objects x.y <\/b>nicht per Verweis eingebunden ist, erhalten wir außerdem einen Kompilierfehler (siehe Bild 1). Hier müssen wir also, solange wir auf dem Entwicklungsrechner arbeiten, den Wert von #cEarlyBinding <\/b>auf -1 <\/b>einstellen und den Wert vor der Weitergabe auf 0 <\/b>ändern.<\/p>\n Bild 1: Kompilierfehler, weil die ADODB-Bibliothek fehlt<\/span><\/b><\/p>\n Die Kompilierungskonstante cEarlyBinding <\/b>können wir auch in den Eigenschaften des VBA-Projekts hinterlegen. Diese öffnen wir über den Menübefehl Extras|Eigenschaften von [Projektname]… <\/b>und erhalten den Dialog aus Bild 2. Die Kompilierungskonstante aus dem Code können wir nun entfernen und die Kompilierung funktioniert dennoch wie erwartet.<\/p>\n Bild 2: Kompilierungskonstanten in den Eigenschaften des VBA-Projekts<\/span><\/b><\/p>\n Dies hat den Vorteil, dass wir die Kompilierungskonstante auch zur Laufzeit einstellen können, was bei der Konstanten im Code nicht möglich ist. Dazu nutzen wir die SetOption<\/b>-Methode des Application<\/b>-Objekts. Hier stellen wir die Konstante cEarlyBinding <\/b>auf den Wert -1 <\/b>ein:<\/p>\n Diese Konstante können wir in Abhängigkeit von verschiedenen Bedingungen einstellen. Wir könnten zum Beispiel prüfen, ob sich die Datenbank auf dem Entwicklungsrechner an einem bestimmten Ort befindet, zum Beispiel so:<\/p>\n Dann wird auf dem Entwicklungsrechner die Konstante auf -1 <\/b>eingestellt und andernfalls auf 0 <\/b>(außer, beim Benutzer ist die Datenbank zufällig unter genau dem gleichen Pfad gespeichert).<\/p>\n Damit die Konstante für die bedingte Kompilierung direkt beim Start der Anwendung festgelegt wird, können wir ein AutoExec-Makro definieren, das eine Funktion mit den obigen Anweisungen ausführt. Für das AutoExec<\/b>-Makro legen wir die AusführenCode<\/b>-Aktion fest und tragen als auszuführende Funktion den Wert =BedingteKompilierung() <\/b>ein (siehe Bild 3).<\/p>\n Bild 3: AutoExec-Makro zum Aufrufen der Funktion zum Einstellen der Konstanten für die bedingte Kompilierung<\/span><\/b><\/p>\n Die folgende Funktion enthält die gleichen Anweisungen wie die zuvor beschriebene:<\/p>\n Beim Start der Anwendung wird nun das AutoExec<\/b>-Makro aufgerufen, das wiederum die Funktion BedingteKompilierung <\/b>startet. Dadurch wird die Kompilierungskonstante cEarlyBinding <\/b>auf den entsprechenden Wert eingestellt.<\/p>\n Wir können auch mehrere Konstanten hinterlegen. Diese müssen wir durch einen Doppelpunkt voneinander trennen (siehe Bild 4).<\/p>\n Bild 4: Beispiel für mehrere Kompilierungskonstanten<\/span><\/b><\/p>\n Dass dies funktioniert, prüfen wir mit der folgenden Funktion:<\/p>\n Achtung: <\/b>Das Setzen der Kompilierkonstanten per VBA funktioniert nicht in .accde<\/b>-Datenbanken!<\/p>\n Dieser Artikel zeigt, wie man die bedingte Kompilierung nutzt, um bestimmte Anweisungen nur unter den entsprechenden Bedingungen zu kompilieren und ausführbar zu machen.<\/p>\n Damit können wir beispielsweise API-Funktionen für 32-Bit und 64-Bit deklarieren oder Early Binding und Late Binding gezielt einsetzen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n VBABedingteKompilierungNutzen.accdb<\/p>\n#If VBA7 Then\r\n''API-Deklarationen für VBA7\r\n#Else\r\n''API-Deklarationen für ältere VBA-Version\r\n#End If<\/pre>\n
Debug.Print<\/span> VBA7<\/pre>\nPublic Sub <\/span>IsVBA7()\r\n#If VBA7 Then\r\n Debug.Print<\/span> \"VBA7\"\r\n#Else\r\n Debug.Print<\/span> \"Älteres VBA\"\r\n#End If\r\nEnd Sub<\/span><\/pre>\n32-Bit oder 64-Bit?<\/h2>\n
Public Sub <\/span>Is32Or64Bit()\r\n#If Win64 Then\r\n Debug.Print<\/span> \"64-Bit\"\r\n#Else\r\n Debug.Print<\/span> \"32-Bit\"\r\n#End If\r\nEnd Sub<\/span><\/pre>\n#If Win32 Then\r\n Debug.Print<\/span> \"32-Bit\"\r\n#Else\r\n Debug.Print<\/span> \"64-Bit\"\r\n#End If<\/pre>\nBedingte Kompilierung mit benutzerdefinierten Konstanten<\/h2>\n
#Const cEarlyBinding = -1<\/pre>\n
Public Sub <\/span>EigeneKonstante()\r\n#If cEarlyBinding = -1 Then\r\n Debug.Print<\/span> \"cEarlyBinding ist True\"\r\n#Else\r\n Debug.Print<\/span> \"cEarlyBinding ist False\"\r\n#End If\r\nEnd Sub<\/span><\/pre>\nBedingte Kompilierung für Early Binding und Late Binding<\/h2>\n
Public Sub <\/span>EarlyBinding()\r\n#If cEarlyBinding = -1 Then\r\n Dim <\/span>rst As <\/span>adodb.Recordset\r\n Set<\/span> rst = New<\/span> adodb.Recordset\r\n#Else\r\n Dim <\/span>rst As Object<\/span>\r\n Set<\/span> rst = CreateObject(\"ADODB.Recordset\")\r\n#End If\r\nEnd Sub<\/span><\/pre>\n![\"Kompilierfehler,](\"..\/fileadmin\/_temp_\/2025_06\/pic_496_001.png\")
<\/p>\nKompilierungskonstanten in den Eigenschaften des VBA-Projekts speichern<\/h2>\n
![\"Kompilierungskonstanten](\"..\/fileadmin\/_temp_\/2025_06\/pic_496_002.png\")
<\/p>\nKompilierkonstanten zur Laufzeit einstellen<\/h2>\n
Public Sub <\/span>KompilierungskonstanteEinstellen()\r\n Application.SetOption _\r\n \"Conditional Compilation Arguments\", _\r\n \"cEarlyBinding=-1\"\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>KompilierungskonstanteEinstellen()\r\n If CurrentDb.Name = _\r\n \"C:\\...\\VBABedingteKompilierungNutzen.accdb\" Then\r\n Application.SetOption _\r\n \"Conditional Compilation Arguments\", _\r\n \"cEarlyBinding=-1\"\r\n Else<\/span>\r\n Application.SetOption _\r\n \"Conditional Compilation Arguments\", _\r\n \"cEarlyBinding=0\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"AutoExec-Makro](\"..\/fileadmin\/_temp_\/2025_06\/pic_496_003.png\")
<\/p>\nPublic Function <\/span>BedingteKompilierung()\r\n ...\r\nEnd Function<\/span><\/pre>\nMehrere Kompilierungskonstanten verwenden<\/h2>\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2025_06\/pic_496_004.png\")
<\/p>\nPublic Function <\/span>TestMehrereKonstanten()\r\n#If A = -1 Then\r\n Debug.Print<\/span> \"A = -1\"\r\n#Else\r\n Debug.Print<\/span> \"A = 0\"\r\n#End If\r\n#If B = -1 Then\r\n Debug.Print<\/span> \"B = -1\"\r\n#Else\r\n Debug.Print<\/span> \"B = 0\"\r\n#End If\r\nEnd Function<\/span><\/pre>\nVorsicht, .accde-Datenbanken!<\/h2>\n
Zusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n