Ich habe diesen Thread zur Fehlerbehandlung gelesen, aber wenn ich versuche, sogar ein einfaches Fehlerverwaltungsszenario zu replizieren, funktioniert es nicht. Ich versuche den folgenden modifizierten Code aus einem der Beispiele auszuführen:
Sub Example() Dim n As Variant On Error GoTo nx For i = 1 To 10 n = 1 / 0 'this WILL cause an error. label1: Next i Exit Sub nx: n = 5 Resume label1 End Sub Der Code sieht gut aus, aber wenn ich ihn tatsächlich ausführen, bekomme ich run-time error 11: division by zeroein Popup-Fenster.
Kann mir jemand helfen, das zu verstehen oder mich in die richtige Richtung weisen?
Der Code funktioniert gut für mich und wirft keine Fehler auf. Ich ging sogar mit dem Debugger Zeile für Zeile durch und nichts passierte.
Als Nebensache finde ich die folgende Alternative viel klarer zu verstehen:
Sub Example() Dim n As Variant On Error Resume Next For i = 1 To 10 n = 1 / 0 'this WILL cause an error. If Err.Number <> 0 Then n = 5 Next i On Error GoTo 0 End Sub Dies ist jedoch nur eine persönliche Präferenz.
Ich habe endlich herausgefunden, was das Problem war, als ich diesen Thread las . Im Optionsmenü wurden meine Einstellungen standardmäßig auf "Fehler bei allen Fehlern" anstelle von "Fehler bei unbehandelten Fehlern" gesetzt. Einfach genug zu beheben, aber ich habe immer noch ein anderes Problem mit meiner Excel-Instanz, die mit jeder Instanz bricht err.[arg]. Ich bekomme eine Compile error: Expected Function or Variable. Kann mir jemand dabei helfen?
Ihr Code fängt den Fehler auf und läuft dann einfach weiter. Versuchen Sie es so und vielleicht werden Sie ein bisschen besser sehen, was damit passiert:
Sub Example() Dim n As Variant On Error GoTo nx For i = 1 To 10 n = 1 / 0 'this WILL cause an error. label1: Next i Debug.print "loop done" Exit Sub nx: Debug.print "error called", i n = 5 Resume label1 End Sub