31.01.2013 Aufrufe

Grundlagen der Programmierung mit VBA Visual Basic for

Grundlagen der Programmierung mit VBA Visual Basic for

Grundlagen der Programmierung mit VBA Visual Basic for

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

3.6.4 Behandlung von Benutzerfehlern<br />

Mit On Error steht ein Mechanismus zur Verfügung, <strong>der</strong> die Ausführung einer Prozedur überwacht<br />

und im Falle eines Fehlers an einer an<strong>der</strong>en Stelle des Codes eine gewisse Anweisung ausführt. Das<br />

Verfahren beruht auf <strong>der</strong> Anwendung von Sprüngen innerhalb des Programmcodes. Die Verwendung<br />

von Sprüngen ist ein inzwischen veralteter Programmierstil und sollte außer bei Fehlerbehandlungen<br />

nicht verwendet werden.<br />

Syntax<br />

On Error Goto FehlerLabel<br />

On Error Goto 0<br />

Resume Fortsetzung<br />

Parameter Verwendung<br />

FehlerLabel Sprungadresse innerhalb <strong>der</strong> Prozedur, nach <strong>der</strong> die Anweisungen des<br />

Fehlerfalles angegeben sind<br />

0 Rückgabe <strong>der</strong> Fehlerkontrolle an <strong>VBA</strong> ("Zurücksetzen").<br />

Resume Angaben <strong>der</strong> Sprungadresse zum Fortsetzen des Programmes<br />

Beispiel. Division durch 0 verhin<strong>der</strong>n.<br />

Sub Division()<br />

Dim inp As Variant, out As Variant<br />

Eingabe:<br />

inp = InputBox("Bitte einen Wert eingeben")<br />

On Error Goto DivFehler<br />

out = 1 / inp<br />

On Error Goto 0<br />

MsgBox "1/" & inp & "=" & out<br />

Exit Sub<br />

DivFehler:<br />

MsgBox "Fehler: Division durch 0!"<br />

Resume Eingabe<br />

End Sub<br />

39

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!