Wer VBA-Code schreibt, merkt schnell: Bestimmte Abläufe wiederholen sich. Man prüft an drei verschiedenen Stellen, ob ein Textfeld leer ist. Man berechnet denselben Wert an zwei verschiedenen Stellen. Man kopiert Code – und wenn sich etwas ändert, muss man es an drei Stellen korrigieren, und vergisst garantiert eine. Die Lösung dafür sind eigene Prozeduren und Funktionen: wiederverwendbare Codebausteine, die man einmal schreibt und beliebig oft aufruft. In diesem Artikel zeigen wir, wie man sie erstellt, wie man Werte übergibt und zurückbekommt und wie man Code damit sauber strukturiert.<\/p>\n
In VBA gibt es zwei Arten von Codebausteinen: Sub<\/b> und Function<\/b>. Der Unterschied ist einfach: Eine Sub<\/b>-Prozedur führt etwas aus und gibt keinen Wert zurück.<\/p>\n
Eine Function<\/b> tut dasselbe, liefert aber am Ende einen Rückgabewert. Wann man welches nimmt, ergibt sich meist von selbst: Soll Code etwas tun – ein Formular öffnen, Daten speichern, eine Meldung anzeigen -, ist Sub<\/b> richtig.<\/p>\n
Soll Code etwas berechnen oder prüfen und das Ergebnis zurückliefern, ist Function<\/b> richtig.<\/p>\n
Ein häufiger Anfängerfehler ist es, eine Function<\/b> zu schreiben, aber nie einen Rückgabewert zuzuweisen – die Funktion verhält sich dann wie eine Sub<\/b> und gibt immer den Standardwert des deklarierten Rückgabetyps zurück.<\/p>\n
Wenn man keinen Rückgabewert braucht, sollte man von vornherein Sub<\/b> verwenden.<\/p>\nEine Sub-Prozedur erstellen<\/h2>\n
Eine Sub<\/b>-Prozedur wird mit dem Schlüsselwort Sub<\/b> eingeleitet, gefolgt vom Namen und einem Klammerpaar. Bei der Deklaration sind die Klammern immer erforderlich, auch wenn die Prozedur keine Parameter entgegennimmt. Abgeschlossen wird sie mit End Sub<\/b>:<\/p>\n Das Schlüsselwort Public<\/b> bedeutet, dass die Prozedur aus anderen Modulen heraus aufgerufen werden kann. Die Alternative ist Private<\/b> – dann ist die Prozedur nur innerhalb des eigenen Moduls sichtbar.<\/p>\n Fehlt das Schlüsselwort ganz, hängt das Verhalten vom Modultyp ab: In einem Standardmodul gilt dann Public<\/b>, in einem Klassenmodul hingegen Private<\/b>.<\/p>\n Als Faustregel gilt deshalb: Immer explizit angeben, was man meint. Hilfsprozeduren, die nur intern gebraucht werden, macht man Private<\/b>.<\/p>\n Prozeduren, die von außen aufgerufen werden sollen, macht man Public<\/b>.<\/p>\n Aufgerufen wird eine Prozedur einfach durch ihren Namen:<\/p>\n Das Schlüsselwort Call<\/b> wird heute selten verwendet, ist aber weiterhin vollständig gültig. Der Aufruf ohne Call<\/b> ist die üblichere Schreibweise.<\/p>\n Prozeduren werden erst richtig nützlich, wenn man ihnen Daten mitgeben kann, mit denen sie arbeiten sollen. Das geschieht über Parameter, die in den Klammern nach dem Prozedurnamen deklariert werden:<\/p>\n Beim Aufruf übergibt man die Werte in der Reihenfolge der Parameterliste:<\/p>\n Alternativ kann man Parameter auch mit ihrem Namen übergeben – dann spielt die Reihenfolge keine Rolle:<\/p>\n Diese benannte Schreibweise ist ausführlicher, macht den Aufruf bei vielen Parametern aber deutlich lesbarer – man sieht sofort, was welchem Parameter entspricht.<\/p>\n In VBA gibt es zwei Arten, wie ein Parameter an eine Prozedur übergeben wird: ByVal<\/b> und ByRef<\/b>. Der Unterschied ist wichtig und wird oft übersehen.<\/p>\n Bei ByRef<\/b> – das ist die Standardeinstellung, wenn man nichts angibt – übergibt VBA eine Referenz auf die ursprüngliche Variable.<\/p>\n Das bedeutet: Wenn die Prozedur den Parameterwert ändert, ändert sich auch die ursprüngliche Variable beim Aufrufer. Bei ByVal<\/b> hingegen bekommt die Prozedur eine Kopie des Wertes – was auch immer sie damit macht, die ursprüngliche Variable bleibt unberührt.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public Sub <\/span>MeldungAusgeben()\r\n MsgBox<\/span> \"Hallo Welt!\"\r\nEnd Sub<\/span><\/pre>\nMeldungAusgeben\r\n'oder mit dem Schlüsselwort Call:\r\nCall<\/span> MeldungAusgeben<\/pre>\nParameter übergeben<\/h2>\n
Public Sub <\/span>KundeAnzeigen(strNachname As String<\/span><\/span>, _\r\n lngKundeID As Long<\/span><\/span>)\r\n Debug.Print<\/span><\/span> lngKundeID & \": \" & strNachname\r\nEnd Sub<\/span><\/pre>\nKundeAnzeigen \"Müller\", 42<\/pre>\n
KundeAnzeigen lngKundeID:=42, strNachname:=\"Müller\"<\/pre>\n
ByVal und ByRef – wie Parameter übergeben werden<\/h2>\n
Public Sub <\/span>VerdoppelnByRef(ByRef lngWert As Long<\/span><\/span>)\r\n lngWert = lngWert * 2\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>VerdoppelnByVal(ByVal lngWert As Long<\/span><\/span>)\r\n lngWert = lngWert * 2\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>TestUebergabe()\r\n Dim <\/span>lngZahl As Long<\/span><\/span>\r\n lngZahl = 5\r\n VerdoppelnByRef lngZahl\r\n Debug.Print<\/span><\/span> lngZahl '10\r\n lngZahl = 5\r\n VerdoppelnByVal lngZahl\r\n Debug.Print<\/span><\/span> lngZahl '5\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 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