VBA-Programmierung in Microsoft Excel

VBA-Begriff: Clear-Methode (Beispiel)

In diesem Beispiel wird die Clear-Methode des Err-Objekts verwendet, um die numerischen Eigenschaften des Err-Objekts auf Null und seine Zeichenfolgeneigenschaften auf Null-Zeichenfolgen zurückzusetzen. Wenn die Clear-Methode im nachfolgenden Code-Beispiel fehlen würde, würde (nach Auftreten eines Fehlers) bei jedem Schleifendurchlauf das Dialogfeld mit der Fehlermeldung angezeigt werden, unabhängig davon, ob eine nachfolgende Berechnung einen Fehler erzeugt hat. Sie können den Code in Einzelschritten durchlaufen, um die Auswirkungen zu verfolgen.

Dim Ergebnis(10) As Integer    ' Datenfelder deklarieren dessen Elemente 
            ' schnell einen Überlauf auslösen.
Dim indx
On Error Resume Next    ' Fehlerbehandlung zurückstellen.
Do Until indx = 10
    ' Hin und wieder einen Fehler auslösen oder Ergebnis bei fehlerfreier Berechnung speichern.
    Result(indx) = Rnd * indx * 20000
    If Err.Number <> 0 Then
        MsgBox Err, , "Fehler: ", Err.HelpFile, Err.HelpContext
        Err.Clear    ' Eigenschaften des Err-Objekts löschen.
    End If
    indx = indx + 1
Loop