Option Unterbrechen bei Fehlern lesen und schreiben

Funktion

Mit den beiden folgenden Funktionen kann der Wert der Option "Unterbrechen bei Fehlern" ausgelesen und geschreiben werden.

Code

Public Enum ErrorTrapping
  etBeiJedemFehler = 0
  etInKlassenmodul = 1
  etNichtVerarbeitet = 2
End Enum


Public Function OptionErrorTrappingLesen() As ErrorTrapping


  OptionErrorTrappingLesen = Application.GetOption("Error Trapping")


End Function


Public Function OptionErrorTrappingSetzen(NeuerWert As ErrorTrapping)


  Application.SetOption "Error Trapping", NeuerWert


End Function

Beschreibung

Es wird eine eigene Enumeration erstellt, die die möglichen Werte enthält.
Das Lesen und Schreiben des Optionswertes erfolgt mit den Funktionen GetOption bzw. SetOption.
Als Argument ist "Error Trapping" zu übergeben.

Verweise

Damit dieser Code funktioniert, sind keine zusätzlichen Verweise erforderlich.