{"id":55000524,"date":"2026-08-01T00:00:00","date_gmt":"2026-11-04T15:30:05","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=524"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"VBA_Basics_Nz_IIf_Switch_und_Choose","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/VBA_Basics_Nz_IIf_Switch_und_Choose\/","title":{"rendered":"VBA Basics: Nz, IIf, Switch und Choose"},"content":{"rendered":"

Mit If…Then<\/b> und Select Case<\/b> entscheiden wir, welche Anweisungen VBA ausführt. Oft brauchen wir aber einen Wert, der von einer Bedingung abhängt, etwa einen Rabattsatz oder die Vorgabe für ein leeres Feld. Dafür stehen die Funktionen Nz<\/b>, IIf<\/b>, Switch<\/b> und Choose<\/b> zur Verfügung. Sie werten alle Parameter aus und liefern in bestimmten Fällen Null<\/b>, was zu Fehlern führen kann. Wie die Funktionen arbeiten und wann wir besser If…Then<\/b> verwenden, liest Du in diesem Artikel.<\/b><\/p>\n

Werte statt Anweisungen<\/h2>\n

Die Anweisungen If…Then<\/b> und Select Case<\/b> haben wir im Artikel VBA Basics: Bedingungen (www.vbentwickler.de\/336)<\/b> beschrieben. Sie führen je nach Bedingung unterschiedliche Anweisungen aus. Die Funktionen in diesem Artikel liefern dagegen einen Wert zurück. Wir setzen sie dort ein, wo ein Wert erwartet wird, zum Beispiel rechts von einer Zuweisung oder als Parameter eines anderen Aufrufs.<\/p>\n

Die Beispiele findest Du im Modul mdlBedingungsfunktionenBeispiele<\/b> der Datenbank VBABasics_Bedingungsfunktionen.accdb<\/b>, zum Ausprobieren dient das Formular frmBedingungsfunktionen<\/b>.<\/p>\n

Nz: Null durch einen Wert ersetzen<\/h2>\n

Ein Feld, in das nichts eingegeben wurde und das keinen Standardwert hat, enthält den Wert Null<\/b>. Rechnen wir mit diesem Wert, ist auch das Ergebnis Null<\/b>:<\/p>\n

Debug.Print<\/span> 100 * (1 - Null)<\/pre>\n
Die Ausgabe lautet Null<\/b>. Enthält das Feld Rabatt<\/b> einer Bestellung den Wert Null<\/b>, ist auch der Preis nach Rabatt Null<\/b>. Die Funktion Nz<\/b> ersetzt Null<\/b> durch den Wert, den wir als zweiten Parameter angeben. Wir setzen Nz<\/b> in der Funktion PreisMitRabatt<\/b> ein. Sie erwartet den Preis als Currency<\/b> und den Rabatt als Variant<\/b>, damit wir auch Null<\/b> übergeben können:<\/p>\n
Public Function <\/span>PreisMitRabatt(curPreis As Currency<\/span>, _\r\n        varRabatt As Variant<\/span>) As Currency<\/span>\r\n    PreisMitRabatt = curPreis * (1 - Nz(varRabatt, 0))\r\nEnd Function<\/span><\/pre>\n
Mit Null<\/b> als Rabatt erhalten wir den Preis unverändert, mit dem Rabatt 0,1<\/b> (im Code 0.1<\/b>) den um zehn Prozent verminderten Preis:<\/p>\n
Debug.Print<\/span> PreisMitRabatt(100, Null)\r\nDebug.Print<\/span> PreisMitRabatt(100, 0.1)<\/pre>\n
Die Ausgaben lauten 100<\/b> und 90<\/b>. Der zweite Parameter von Nz<\/b> ist optional. Fehlt er, liefert Nz<\/b> für Null<\/b> einen Wert vom Datentyp Variant<\/b> mit dem Untertyp Empty<\/b>, der in Berechnungen als 0<\/b> und in Zeichenketten als leerer Text gilt. Der Ausdruck Nz(Null) + 5<\/b> ergibt daher 5<\/b> und Nz(Null) & „x“<\/b> ergibt x<\/b>.<\/p>\n
Nz<\/b> ersetzt nur Null<\/b>. Ein leerer Text ist nicht Null<\/b>, deshalb gibt Nz(„“, „x“)<\/b> den leeren Text zurück.<\/p>\n
Nz<\/b> gehört zu Access und nicht zu VBA. In Excel, Word oder Outlook steht die Funktion ohne einen Verweis auf die Access-Bibliothek nicht zur Verfügung. Dort prüfen wir mit IsNull<\/b>, ob ein Wert Null<\/b> ist.<\/p>\n
IIf: Einen von zwei Werten auswählen<\/h2>\n
IIf<\/b> erwartet drei Parameter: die Bedingung, den Wert für True<\/b> und den Wert für False<\/b>. Als Beispiel berechnen wir den Anteil eines Teils an einer Summe. Bei der Summe 0<\/b> soll das Ergebnis ebenfalls 0<\/b> lauten, damit keine Division durch 0<\/b> stattfindet. Zuerst versuchen wir es mit IIf<\/b>:<\/p>\n
Public Function <\/span>AnteilIIf(dblTeil As Double<\/span>, _\r\n        dblSumme As Double<\/span>) As Double<\/span>\r\n    AnteilIIf = IIf(dblSumme = 0, 0, dblTeil \/ dblSumme)\r\nEnd Function<\/span><\/pre>\n
Der erste Aufruf liefert 0,25<\/b>, der zweite löst einen Fehler aus:<\/p>\n
Debug.Print<\/span> AnteilIIf(1, 4)\r\nDebug.Print<\/span> AnteilIIf(5, 0)<\/pre>\n
Der zweite Aufruf löst den Laufzeitfehler 11<\/b> mit der Meldung Division durch Null<\/b> aus, obwohl wir die Division durch die Bedingung ausschließen wollen. VBA wertet nämlich beim Aufruf einer Funktion zuerst die Parameter aus. Bei IIf<\/b> gehören dazu beide Werte, auch der Wert, den wir gar nicht benötigen.<\/p>\n
Die Funktion AnteilIf<\/b> verwendet deshalb die Anweisung If…Then<\/b>, bei der VBA nur den passenden Zweig ausführt:<\/p>\n
Public Function <\/span>AnteilIf(dblTeil As Double<\/span>, _\r\n        dblSumme As Double<\/span>) As Double<\/span>\r\n    If <\/span>dblSumme = 0 Then<\/span>\r\n        AnteilIf = 0\r\n    Else<\/span>\r\n        AnteilIf = dblTeil \/ dblSumme\r\n    End If<\/span>\r\nEnd Function<\/span><\/pre>\n
AnteilIf(5, 0)<\/b> liefert 0<\/b> und AnteilIf(1, 4)<\/b> liefert 0,25<\/b>. IIf<\/b> setzen wir daher ein, wenn die Berechnung beider Werte keinen Fehler auslösen kann, etwa bei Konstanten oder einfachen Feldwerten. Kann einer der Werte einen Fehler auslösen, verwenden wir If…Then<\/b>.<\/p>\n
Switch: Mehrere Bedingungen nacheinander prüfen<\/h2>\n
Switch<\/b> erwartet mehrere Paare aus einer Bedingung und einem Wert. Die Funktion liefert den Wert des ersten Paares, dessen Bedingung True<\/b> ergibt. Als Beispiel ermitteln wir mit der Funktion Staffelrabatt<\/b> den Rabattsatz anhand der Bestellsumme. Die Funktion gibt einen Wert vom Datentyp Variant<\/b> zurück, weil Switch<\/b> auch Null<\/b> liefern kann:<\/p>\n
Public Function <\/span>Staffelrabatt( _\r\n        curSumme As Currency<\/span>) As Variant<\/span>\r\n    Staffelrabatt = Switch(curSumme >= 1000, 0.1, _\r\n        curSumme >= 500, 0.05, _\r\n        curSumme >= 0, 0)\r\nEnd Function<\/span><\/pre>\n
Ab einer Summe von 1000<\/b> erhalten wir den Rabattsatz 0,1<\/b>, ab 500<\/b> den Satz 0,05<\/b> und darunter 0<\/b>. Switch<\/b> prüft die Bedingungen von links nach rechts.<\/p>\n
Die Reihenfolge bestimmt deshalb das Ergebnis, denn mit dem Vergleichsoperator Größer-gleich (>=<\/b>) trifft jede Summe ab 0<\/b> zu. Stünde curSumme >= 0<\/b> am Anfang, erhielten Summen ab 0<\/b> den Rabattsatz 0<\/b>.<\/p>\n
Trifft keine Bedingung zu, liefert Switch<\/b> den Wert Null<\/b>. Bei der Summe -1<\/b> ist das der Fall. Die Zuweisung dieses Ergebnisses an eine Variable vom Typ Double<\/b> oder String<\/b> löst den Fehler 94<\/b> mit der Meldung Unzulässige Verwendung von Null<\/b> aus. Mit Nz<\/b> erhalten wir stattdessen 0<\/b>:<\/p>\n
Debug.Print<\/span> Nz(Staffelrabatt(-1), 0)<\/pre>\n
Wie bei IIf<\/b> wertet VBA vor dem Aufruf alle Bedingungen und alle Werte aus. Der Ausdruck Switch(True, 1, True, 1 \/ 0)<\/b> löst deshalb trotz des ersten Treffers den Fehler 11<\/b> aus.<\/p>\n
Choose: Einen Wert nach Position auswählen<\/h2>\n
Choose<\/b> erwartet einen Index und eine Liste von Werten und liefert den Wert an der Position des Index. Die erste Position hat den Index 1<\/b>. Die Funktion Lieferart<\/b> übersetzt einen Code, wie wir ihn in einem Feld speichern, in einen Text:<\/p>\n
Public Function <\/span>Lieferart(lngCode As Long<\/span>) As Variant<\/span>\r\n    Lieferart = Choose(lngCode, \"Standard\", \"Express\", _\r\n        \"Abholung\")\r\nEnd Function<\/span><\/pre>\n
Der Aufruf Lieferart(1)<\/b> liefert Standard<\/b> und Lieferart(3)<\/b> liefert Abholung<\/b>. Liegt der Index außerhalb der Liste, etwa bei 0<\/b> oder bei 4<\/b>, liefert Choose<\/b> den Wert Null<\/b>. Eine Vorgabe legen wir wieder mit Nz<\/b> fest, die Ausgabe lautet unbekannt<\/b>:<\/p>\n
Debug.Print<\/span> Nz(Lieferart(4), \"unbekannt\")<\/pre>\n
Hat der Index Nachkommastellen, schneidet Choose<\/b> diese ab. Choose(1.5, „a“, „b“, „c“)<\/b> liefert daher a<\/b>. Auch hier wertet VBA alle Werte der Liste aus: Choose(1, „a“, 1 \/ 0)<\/b> löst den Fehler 11<\/b> aus.<\/p>\n
Die Funktionen im Formular ausprobieren<\/h2>\n
Das Formular frmBedingungsfunktionen<\/b> enthält für jede Funktion einen Bereich mit Eingabe- und Ergebnisfeldern. Die Ergebnisfelder zeigen den Rückgabewert und seinen Datentyp in der Form Wert (Datentyp) (siehe Bild 1).<\/p>\n
\"Das<\/p>\n
Bild 1: Das Formular frmBedingungsfunktionen mit den Bereichen Nz, IIf, Switch und Choose<\/span><\/b><\/p>\n
Im Bereich Nz<\/b> bleibt das Feld Rabatt<\/b> zunächst leer: Mit Nz<\/b> zeigt 100 (Currency)<\/b>, Ohne Nz<\/b> zeigt Null (Null)<\/b>. Mit dem Rabatt 0,1<\/b> erscheint bei Mit Nz<\/b> der Wert 90 (Currency)<\/b>.<\/p>\n
Im Bereich IIf<\/b> steht bei Summe<\/b> der Wert 0<\/b>. Mit IIf<\/b> zeigt Fehler 11: Division durch Null<\/b>, Mit If…Then<\/b> zeigt 0 (Double)<\/b>. Mit dem Teil<\/b> 5<\/b> und der Summe<\/b> 4<\/b> zeigen beide Felder 1,25 (Double)<\/b>.<\/p>\n
Geben wir im Bereich Switch<\/b> bei Bestellsumme<\/b> den Wert -5<\/b> ein, zeigen Rabattsatz<\/b> Null (Null)<\/b> und Mit Nz<\/b> 0 (Integer)<\/b>. Beim Code<\/b> 0<\/b> im Bereich Choose<\/b> zeigen Lieferart<\/b> Null (Null)<\/b> und Mit Nz<\/b> unbekannt (String)<\/b>.<\/p>\n
Zusammenfassung<\/h2>\n
Nz<\/b> ersetzt Null<\/b>, IIf<\/b> liefert einen von zwei Werten, Switch<\/b> den Wert des ersten zutreffenden Paares und Choose<\/b> den Wert an der Position des Index. Switch<\/b> und Choose<\/b> liefern ohne Treffer Null<\/b>.<\/p>\n
Da VBA bei IIf<\/b>, Switch<\/b> und Choose<\/b> alle Werte vor dem Aufruf auswertet, verwenden wir If…Then<\/b> oder Select Case<\/b>, sobald ein Wert einen Fehler auslösen kann (siehe VBA Basics: Bedingungen (www.vbentwickler.de\/336)<\/b>).<\/p>\n","protected":false},"excerpt":{"rendered":"
Mit If…Then und Select Case entscheiden wir, welche Anweisungen VBA ausführt. Oft brauchen wir aber einen Wert, der von einer Bedingung abhängt, etwa einen Rabattsatz oder die Vorgabe für ein leeres Feld. Dafür stehen die Funktionen Nz, IIf, Switch und Choose zur Verfügung. Sie werten alle Parameter aus und liefern in bestimmten Fällen Null, was zu Fehlern führen kann. Wie die Funktionen arbeiten und wann wir besser If…Then verwenden, liest Du in diesem Artikel.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"footnotes":""},"categories":[662026,66042026,66052026,44000030,44000025],"tags":[],"yst_prominent_words":[],"class_list":["post-55000524","post","type-post","status-publish","format-standard","hentry","category-662026","category-66042026","category-66052026","category-PowerPoint_programmieren","category-VBAProgrammierung"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t