Aufrufe ohne Ergebniswert in VBA

Subs

Ein Sub (von “subroutine ”, also „Unterprogramm“) ist dasselbe wie eine Funktion, nur daß es kein Ergebnis liefert. Deswegen kann sein Aufruf nicht hinter »Debug.Print« stehen oder als Operand oder Argument verwendet werden.

Direktbereich

Debug.Print VBA.FileSystem.MkDir( "DML14201912" )

Microsoft Visual Basic
Fehler beim Kompilieren:
Function oder Variable erwartet

Ein Sub kann jedoch – wie eine Funktion – hinter dem Schlüsselwort »Call« aufgerufen werden.

Prozedur wird als Oberbegriff für Subs und Funktionen verwendet.

Deutsch „Prozedur“ = Englisch “procedure” [proʊˈsiʤɚ].

In der Dokumentation werden Subs auch als Anweisungen bezeichnet, im Objektkatalog sind sie mit Sub gekennzeichnet.

Beispiele

Wir zeigen im folgenden einige Beispiele für Aufrufe von Subs.

»`VBA.FileSystem.MkDir`«

Wir lassen uns zunächst das aktuelle Verzeichnis anzeigen. Im folgenden angelegte Einträge (Verzeichnisse oder Dateien) werden sich dann in jenem Verzeichnisse finden lassen.

Direktbereich

Debug.Print CurDir$()

C:\

Das Sub »VBA.FileSystem.MkDir« legt im aktuellen Verzeichnis ein Verzeichnis mit dem als Argumentwert übergebenen Namen an.

Direktbereich

Call VBA.FileSystem.MkDir( "DML14201912" )

(bewirkt normalerweise Anlegen des Verzeichnisses »DML142001912« im aktuellen Verzeichniss)

Auch Parameternamen können beim Aufruf verwendet werden. Bei dem wiederholten Versuch, das Verzeichnis anzulegen, erscheint jedoch eine Fehlermeldung, da das Verzeichnis nun schon existiert.

Direktbereich

Call VBA.FileSystem.MkDir( Path := "DML14201912" )

Microsoft Visual Basic
Laufzeitfehler '75':
Fehler beim Zugriff auf Pfad/Datei

Der Aufruf eines Subs ist auch ohne »Call« möglich, jedoch dürfen dann auch keine Klammern verwendet werden.

Direktbereich

VBA.FileSystem.MkDir "DML14201912"

Auch hier können Parameternamen verwendet werden.

Direktbereich

VBA.FileSystem.MkDir Path := "DML14201912"

»`VBA.FileSystem.RmDir`«

Das Sub »VBA.FileSystem.RmDir« löscht im aktuellen Verzeichnis ein Verzeichnis mit dem als Argumentwert übergebenen Namen an.

Direktbereich

Call VBA.FileSystem.RmDir( "DML14201912" )

⚠ Auf ähnliche Weise wie man Verzeichnisse mit VBA löschen kann, kann man auch Dateien mit VBA löschen. Dies zeigt, wie wichtig es ist, vorsichtig beim Programmieren zu sein, und auch keine VBA -Programme aus suspekten Quellen zu starten. Ein VBA -Programm kann alles mögliche mit einem Computer anstellen.

Subs als Anweisungen

Der Aufruf des Subs »MkDir« kann wie im folgenden wie eine spezielle Anweisungsart erscheinen, eine „MkDir-Anweisung“. In BASIC beginnt jede Anweisung mit einem Schlüsselwort, und hier sieht »MkDir« wie ein solches Schlüsselwort aus. Daher spricht Microsoft in seiner Dokumentation auch tatsächlich von der „MkDir-Anweisung“.

Direktbereich mit einer MkDir-Anweisung

MkDir "DML14201912"

»`Debug.Print`«

»Debug.Print« ist eine fest in die Sprache eingebaute Ausnahme. Es ist keine normale Prozedur. Es gibt daher keine Parameternamen und keinen dazugehörigen Eintrag im Objektkatalog. Man kann es nicht mit »Call« aufrufen.

Übungsfragen

? Übungsfrage

Welche Ausgabe ergibt sich bei der Eingabe der Zeile »VBA.Math.Cos( 0 )« in den Direktbereich?

? Übungsfrage

Ist die Prozedur »VBA.FileSystem.ChDir« ein Sub oder eine Funktion?

Ist die Prozedur »VBA.FileSystem.FreeFile« ein Sub oder eine Funktion?

? Übungsfrage

Was ist an der Anweisung »Call Rnd« auffällig?

Übungsaufgaben

Bei den folgenden Übungsaufgaben sollen Funktionen direkt hinter »Debug.Print« und Subs ohne Verwendung von »Debug.Print« aufgerufen werden.

Bei der Ausführung der geschriebenen Anweisungen darf es keine Fehlermeldung geben.

(In manchen Fälle kann es passieren, daß bei richtiger Lösung der Übungsaufgabe nichts weiter passiert.)

/ Übungsaufgabe

Schreiben Sie eine Anweisung mit einem Aufruf der Prozedur »VBA.FileSystem.ChDir«.

/ Übungsaufgabe

Schreiben Sie eine Anweisung mit einem Aufruf der Prozedur »VBA.FileSystem.FreeFile«.

/ Übungsaufgabe

Schreiben Sie eine Anweisung mit einem Aufruf der Prozedur »VBA.Interaction.Command$«.

/ Übungsaufgabe

Schreiben Sie eine Anweisung mit einem Aufruf der Prozedur »VBA.FileSystem.Reset«.

/ Übungsaufgabe

Schreiben Sie eine Anweisung mit einem Aufruf der Prozedur »VBA.Interaction.Beep«.

Aufrufe ohne Ergebniswert in VBA

Subs

Beispiele

»VBA.FileSystem.MkDir«

»VBA.FileSystem.RmDir«

Subs als Anweisungen

»Debug.Print«

Übungsfragen

? Übungsfrage

? Übungsfrage

? Übungsfrage

Übungsaufgaben

/ Übungsaufgabe

/ Übungsaufgabe

/ Übungsaufgabe

/ Übungsaufgabe

/ Übungsaufgabe

»`VBA.FileSystem.MkDir`«

»`VBA.FileSystem.RmDir`«

»`Debug.Print`«