goto ...
goto ...
MeinHinhuepfer:
Im Code dann: Goto MeinHinhuepfer
Danach wird dann weitergemacht.
HTH, Matthias
wird ja gern zur Fehlerbehandlung genutzt,
dann mal ein Beispiel damit...
Bye
Nike
sub test()
on error goto Sprungmarke
bla
blub
if then
end if
exit sub
Sprungmarke:
err.clear
end sub
1. Bitte Klarnamen hier im Forum!
2. Threads nicht x mal öffnen!
3. Hilfe von Excel bemühen, was steht bei GoTo:
GoTo-Anweisung (Beispiel)
In diesem Beispiel wird die GoTo-Anweisung verwendet, um zu Zeilenmarken innerhalb einer Prozedur zu verzweigen.
Sub GotoAnweisungDemo()
Dim Zahl, Text1
Zahl = 1 ' Variable initialisieren.
' Zahl auswerten und zur entsprechenden Marke verzweigen.
If Zahl = 1 Then GoTo Zeile1 Else GoTo Zeile2
Zeile1:
Text1 = "Zahl ist gleich 1"
GoTo LetzteZeile ' Zu LetzteZeile verzweigen.
Zeile2:
' Die nächste Anweisung wird niemals ausgeführt.
Text1 = "Zahl ist gleich 2"
LetzteZeile:
Debug.Print Text1 ' "Zahl ist gleich 1" ' Direkt im Fenster ausgeben.
End Sub
Gruß
Micha