VBA-Programmierung in Microsoft Excel

VBA-Begriff: On...GoSub-, On...GoTo-Anweisung (Beispiel)

In diesem Beispiel werden die Anweisungen On...GoSub und On...GoTo verwendet, um zu Unterroutinen bzw. Zeilenmarken zu verzweigen.

Sub OnGosubGotoDemo()
Dim Zahl, Text1
    Zahl = 2    ' Variable initialisieren.
    ' Nach Sub2 verzweigen.
    On Zahl GoSub Sub1, Sub2    ' Ausführung nach On...GoSub
        ' hier fortsetzen.
    On Zahl GoTo Zeile1, Zeile2    ' Nach Zeile2 verzweigen.
    ' Ausführung wird nach On...GoTo nicht hier fortgesetzt.
    Exit Sub
Sub1:
    Text1 = "In Sub1" : Return
Sub2:
    Text1 = "In Sub2" : Return
Zeile1: 
    Text1 = "In Zeile1"
Zeile2: 
    Text1 = "In Zeile2"
End Sub