zu Spungmarke in anderem Modul springen
08.08.2014 15:23:01
ela
ich bin gerade dabei meinen Code zu modularisieren.
Den Code den ich in Modul1 "outsource" enthält eine Sprungmarke, welche in Tabelle1 definiert ist.
Hier ein kurzes Codebsp:
Sub Test ()
dim zaehler as integer
dim nenner as integer
'code
'Aufruf der Prozedur in Modul 1 mit übergabe der werte von zähler und nenner
Modul1.teilen zaehler, nenner
'code
beenden:
'code
End Sub
Sub teilen(zaehler as integer, nenner as integer)
dim ergebnis as integer
on error goto beenden
ergebnis = zaehler/nenner
on error goto 0
End Sub
Geht es nun, dass wenn in Modul1.teilen() ein fehler auftritt, dass die prozedur abbricht und zur sprungmarke "beenden" in Tabelle1.Test springt?
Bzw wie programmiere ich das?
Vielen dank für eure Hilfe
Grüße
Ela