Unterprogrammdefinitionen in VBA

Das Programm "Kuckuck" gibt die ersten drei Strophen eines Liedes aus. Man erkennt, daß sich eine bestimmter Teil darin immer wiederholt.

Modul1

Sub Kuckuck() 
  Debug.Print "Auf einem Baum ein Kuckuck, -" 
  Debug.Print "Sim sa la dim, bam ba," 
  Debug.Print "Sa la du, sa la dim -" 
  Debug.Print "Auf einem Baum ein Kuckuck sass." 
  ' 
  Debug.Print "Da kam ein junger Jaeger, -" 
  Debug.Print "Sim sa la dim, bam ba," 
  Debug.Print "Sa la du, sa la dim -" 
  Debug.Print "Da kam ein junger Jaegersmann." 
  ' 
  Debug.Print "Der schoss den armen Kuckuck, -" 
  Debug.Print "Sim sa la dim, bam ba," 
  Debug.Print "Sa la du, sa la dim -" 
  Debug.Print "Der schoss den armen Kuckuck tot." 
End Sub

Direktbereich

Auf einem Baum ein Kuckuck, - 
Sim sa la dim, bam ba, 
Sa la du, sa la dim - 
Auf einem Baum ein Kuckuck sass. 
Da kam ein junger Jaeger, - 
Sim sa la dim, bam ba, 
Sa la du, sa la dim - 
Da kam ein junger Jaegersmann. 
Der schoss den armen Kuckuck, - 
Sim sa la dim, bam ba, 
Sa la du, sa la dim - 
Der schoss den armen Kuckuck tot.

Im Programm "Kuckuck1" wird ein anderes Programm "Refrain" zur Ausgabe des Refrains dreimal aufgerufen. Die Ausgabe des Programms "Kuckuck1" ist der Ausgabe des Programms "Kuckuck" gleich, denn bei jedem Aufruf der Funktion "Refrain" werden wieder die Anweisungen ausgeführt, die den Refrain ausgeben.

Dadurch die Auskoppelung des Refrains in ein spezielles Unterprogramm wird das Modul insgesamt übersichtlich, kürzer und leichter wartbar.

Modul1

Sub Refrain() 
  Debug.Print "Sim sa la dim, bam ba," 
  Debug.Print "Sa la du, sa la dim -" 
End Sub
Sub Kuckuck1() 
  Debug.Print "Auf einem Baum ein Kuckuck, -": Call Refrain 
  Debug.Print "Auf einem Baum ein Kuckuck sass." 
  Debug.Print "Da kam ein junger Jaeger, -": Call Refrain 
  Debug.Print "Da kam ein junger Jaegersmann." 
  Debug.Print "Der schoss den armen Kuckuck, -": Call Refrain 
  Debug.Print "Der schoss den armen Kuckuck tot." 
End Sub

Direktbereich

Auf einem Baum ein Kuckuck, - 
Sim sa la dim, bam ba, 
Sa la du, sa la dim - 
Auf einem Baum ein Kuckuck sass. 
Da kam ein junger Jaeger, - 
Sim sa la dim, bam ba, 
Sa la du, sa la dim - 
Da kam ein junger Jaegersmann. 
Der schoss den armen Kuckuck, - 
Sim sa la dim, bam ba, 
Sa la du, sa la dim - 
Der schoss den armen Kuckuck tot.

Der Quelltext enthält zwei Programmdefinitionen, die mit dem Quelltext "Sub Refrain()" bzw. dem Quelltext "Sub Kuckuck1()" beginnen und das Programm "Refrain" sowie das Programm "Kuckuck" definieren.

Die erste Programmdefinition definiert das Programm "Refrain", indem der Name "Refrain" an die beiden Folge (Sequenz) der Anweisung "Debug.Print "Sim sa la dim, bam ba,"" und der Anweisung "Debug.Print "Sa la du, sa la dim -"" gebunden wird. Das Unterprogramm "Refrain" kann in dem Unterprogramm "Kuckuck1", auch wiederholt, aufgerufen werden, um die Ausführung dieser beiden Anweisungen zu bewirken. Der Aufruf kann auch ohne das vorangestellte Schlüsselwort "Call" erfolgen.

Da das Unterprogramm "Refrain" hier als dem Unterprogramm "Kuckuck1" untergeordnet erscheint, wird es als Unterprogramm bezeichnet. Dies gilt eigentlich nur relativ in bezug auf ein aufrufendes „Oberprogramm“, aber hat sich auch allgemein als Bezeichnung für die mit der Sub-Anweisung definierten aufrufbaren Blöcke (d.h. Anweisungsfolgen) in VBA eingebürgert.

Ablaufanzeige

Eine Ablaufanzeige kann verwendet werden, um bei einer verlangsamten Programmausführung zu beobachten, wie die einzelnen Anweisungs-Verse ausgeführt werden. Um das zu sehen, kann die Definition des Programms "Refrain" und des Programms "Kuckuck1" verwendet werden.

Modul1

Sub Refrain() 
  Debug.Print "Sim sa la dim, bam ba," 
  Debug.Print "Sa la du, sa la dim -" 
End Sub
Sub Kuckuck1() 
  Debug.Print "Auf einem Baum ein Kuckuck, -": Call Refrain 
  Debug.Print "Auf einem Baum ein Kuckuck sass." 
  Debug.Print "Da kam ein junger Jaeger, -": Call Refrain 
  Debug.Print "Da kam ein junger Jaegersmann." 
  Debug.Print "Der schoss den armen Kuckuck, -": Call Refrain 
  Debug.Print "Der schoss den armen Kuckuck tot." 
End Sub

Nachdem ein Modul verändert wurde, kann es zunächst kompiliert werden, um bestimmte Fehler gleich zu erkennen. Wenn das Modul ohne Fehlermeldungen kompiliert wurde, kann die Schreibmarke in die zu untersuchende Makrodefinition positioniert werden.

Durch Tippen der Taste F8 (Menüeintrag "Einzelschritt" im Menü "Debuggen") kann dann eine Einzelschrittausführung des Makros gestartet bzw. fortgesetzt werden. Dabei wird der nächste auszuführende Vers zunächst durch eine gelbe Hintergrundfarbe (oder anders) hervorgehoben. Der Prozeß (die Programmausführung) ist danach im Haltemodus und der Bediener erhält nun vorübergehend wieder die Kontrolle. Durch erneutes Tippen der Taste F8 kann dann der hervorgehobene Vers ausgeführt werden.

Verfolgen von Unterprogrammen

Wenn der nächste auszuführende Vers ein Unterprogramm aufruf ist, dann kann wird bei Tippen der Taste F8 der erste ausführbare Vers des aufgerufenen Programms angezeigt. Durch weiteres Tippen der Taste F8 kann dann auch die Ausführung der Verse des aufgerufenen Unterprogramms in einzelnen Schritten angezeigt werden.

Falls das für ein Unterprogramm aber nicht so detailliert durchgeführt werden soll, kann nach dem Eintritt in das Unterprogramm mit der Tastenkombination Strg-Schalt⇑-F8 (Menüeintrag "Prozedur abschließen") die Ausführung des Unterprogramms in einem Schritt abgeschlossen werden. Der nächste zur Einzelschrittausführung vorgelegte Vers ist dann der Vers nach dem Unterprogrammaufruf.

Es ist aber auch möglich, einen Unterprogrammaufruf gleich als ganzes ausführen zu lassen, ohne daß dabei erst mit der Einzelschrittanzeige des Unterprogramms begonnen wird. Wenn der Aufruf eines Unterprogramms als zur Ausführung bereit angezeigt wird, dann wird dazu die Tastenkombination Strg-Schalt⇑-F8 (Menüeintrag "Prozedurschritt") eingegeben.

Während der Einzelschrittausführung eines Programms kann auch jederzeit die zum normalen Start verwendete Taste F5 getippt werden, um die Ausführung des gesamten restlichen Programms zu verlangen.

Unterprogrammaufrufe

Der Aufrufe eines Unterprogramms ohne Parameter und ohne CALL vor einem Doppelpunkt »:« kann von VBA als Etikett (Sprungmarke) interpretiert werden. In diesem Fall ist dann entweder der Doppelpunkt durch eine Zeilentrennung zu ersetzen oder CALL zu verwenden.

Unterprogramm mit Variablen

Das folgende Beispiel zeigt eine Unterprogramm mit einer lokalen Variablen.

Modul1

Sub Var1()
  Dim v As Integer
Rem Anfang des Gueltigkeitsbereichs der Variablen "v"
  Let v = 1
  Let v = 2
  Debug.Print v
End Sub

Rem Ende des Gueltigkeitsbereichs der Variablen "v"

Unterprogramm mit statischen Variablen

Das folgende Beispiel zeigt eine Unterprogramm mit einer statischen Variablen.

Modul1

Sub Var1()
    Static v As Integer ' ist zunächst 0
    Debug.Print v
    Let v = v + 1
End Sub 
Rem Ende des Gueltigkeitsbereichs der Variablen "v"
Sub Main()
    Var1
    Var1
    Var1
End Sub

Protokoll

Das gleiche mit »Dim«.

Modul1

Sub Var1()
    Dim v As Integer ' ist zunächst 0
    Debug.Print v
    Let v = v + 1
End Sub 
Rem Ende des Gueltigkeitsbereichs der Variablen "v"
Sub Main()
    Var1
    Var1
    Var1
End Sub

Protokoll

Module

Normalerweise wird empfohlen, verschiedene Unterprogramme „übersichtlich“ auf mehrere Module aufzuteilen, indem Unterprogramme, die enger zusammengehören jeweils in einem Modul zusammengefaßt werden.

Es gibt aber auch ein Argument dafür, alle Unterprogamme in ein einziges Modul zu packen: Der Text dieses Moduls läßt sich als zusätzliche Datensicherung leicht über die Zwischenablage oder über das „Exportieren“ in eine Textdatei schreiben. Bei vielen Modulen wird dies immer mühevoller, da jedes Modul einzeln gesichert werden muß.

Übungsfragen

Wiederholungen

Unterprogramme können dafür sorgen, daß wiederholt auszuführende Abläufe nur einmal im Code vorkommen müssen.

Modul1

Sub Hallo(): Debug.Print "Hallo!": End Sub
Sub Hallo2(): Hallo: Hallo: End Sub
Sub Main(): Hallo2: Hallo: End Sub

Übungsfrage Was gibt das Programm "Main" aus?

Übungen

Unterprogramme benutzen

Modul1

Sub Lkw
  Debug.Print "Lastkraftwagen"
End Sub

Fügen Sie das obenstehende Programm in ein Modul ein und rufen Sie es dann aus dem Direktbereich auf.

Unterprogramme definieren

Fügen Sie noch eine Methode namens »wpg« in das Modul ein, die »Wirtschaftsprüfungsgesellschaft« ausgibt.

Unterprogramme definieren ⃗

Schreiben Sie das folgende Programm um, so daß sich wiederholende Anweisungen von einem Unterprogramm (oder von mehreren Unterprogrammen) ausgeführt werden, das dann wiederholt aufgerufen wird (bzw. aufgerufen werden). Das Umschreiben soll die Ausgabe des Programmes nicht verändern.

Modul1

Sub Gemuese
  Debug.Print "Tomaten"
  Debug.Print "Rotkohl Gruenkohl"
  Debug.Print "Gurken"
  Debug.Print "Tomaten"
  Debug.Print "Rotkohl Gruenkohl"
  Debug.Print "Spinat"
  Debug.Print "Tomaten"
  Debug.Print "Rotkohl Gruenkohl"
  Debug.Print "Kohlrabi"
End Sub

Direktbereich

Tomaten
Rotkohl Gruenkohl
Gurken
Tomaten
Rotkohl Gruenkohl
Spinat
Tomaten
Rotkohl Gruenkohl
Kohlrabi

Hinweis Falls die Aufgabe schwerfällt, kann das Modul "Modul1" mit dem Unterprogramm "Kuckuck1" als Vorlage für die Lösung verwendet werden, indem darin schrittweise die Texte durch die für die Lösung dieser Aufgabe passende Texte ersetzt werden.