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.