Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: GoSub...Return-Anweisung (Beispiel)

In diesem Beispiel wird GoSub verwendet, um eine Unterroutine innerhalb einer Sub-Prozedur aufzurufen. Die Ausführung wird nach Ausführung der Return-Anweisung mit der Anweisung fortgesetzt, die auf die GoSub-Anweisung folgt. Die Exit Sub-Anweisung verhindert, daß der Code der Unterroutine versehentlich ausgeführt werden kann.

Sub GoSubDemo()
Dim Zahl
' Zahleneingabe vom Benutzer.
    Zahl = InputBox("Positive Zahl, die durch 2 teilbar ist.")
' Routine nur aufrufen, wenn Benutzer eine positive Zahl eingibt.
    If Zahl > 0 Then GoSub Routine1    
    Debug.Print Zahl
    Exit Sub    ' Exit, um Fehler zu vermeiden.
Routine1:
    Zahl = Zahl/2    ' Division durchführen.
    Return    ' Steuerung an Anweisung zurück, die
End Sub    ' auf GoSub-Anweisung folgt.