Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Resume-Anweisung (Beispiel)

In diesem Beispiel wird die Resume-Anweisung verwendet, um die Fehlerbehandlung in einer Prozedur zu beenden und dann die Ausführung mit der Anweisung fortzusetzen, die den Fehler ausgelöst hat. Fehlernummer 55 wird ausgelöst, um die Verwendung der Resume-Anweisung zu veranschaulichen.

Sub ResumeAnweisungDemo()
    On Error GoTo ErrorHandler    ' Fehlerbehandlungsroutine
                ' aktivieren.
    Open "DATEI1" For Output As #1    ' Datei für Ausgabe öffnen.
    Kill "DATEI1"    ' Versuch, geöffnete Datei zu
                ' löschen.
    Exit Sub    ' Sub vor Fehlerbehandlung beenden.
ErrorHandler:    ' Fehlerbehandlungsroutine.
    Select Case Err.Number    ' Fehlernummer auswerten.
        Case 55    ' Fehler "Datei bereits
                ' geöffnet".

            Close #1    ' Geöffnete Datei schließen.
        Case Else
            ' Andere Fälle hier bearbeiten.... 
    End Select
    Resume    ' Ausführung in derselben Zeile
    ' fortsetzen, die den Fehler.
End Sub    ' ausgelöst hat.