Wenn Sie nicht vertraut sind mit Fehlerbehandlung

dennoch empfehlen wir Ihnen erstes Beispiel zu lesen. Wenn ein Fehler in Excel VBA auftritt, werden die Eigenschaften des Err-Objekt mit Informationen gefüllt.

Situation:

Das folgende Programm berechnet die Quadratwurzel von Zahlen.

Err Object in Excel VBA

  1. Legen Sie eine Befehlsschaltfläche

auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

Dim rng As Range, cell As Range

Set rng = Selection

For Each cell In rng

On Error GoTo InvalidValue:

cell.Value = Sqr(cell.Value)

Next cell

Exit Sub

InvalidValue:

MsgBox Err.Number & " " & Err.Description & " at cell " & cell.Address

Resume Next

Ergebnis, wenn Sie wählen Range ( „B2: B6“) und klicken Sie auf das Befehlsschaltflächen auf dem Blatt:

Err Object Result

Err Object Result

Erläuterung: Wenn ein Fehler auftritt, wird die Nummer Eigenschaft des Objekts Err mit einer eindeutigen Fehlernummer des aktuellen Fehlers und der Beschreibung Eigenschaft gefüllt ist, wird mit der Fehlerbeschreibung des aktuellen Fehlers gefüllt.

  1. Diese Beschreibungen für die Nutzer des Programms möglicherweise nicht sehr hilfreich sein. Sie können die Fehlermeldungen benutzerfreundlicher machen, indem Sie den letzten Teil des Makros wie folgt zu ändern:

InvalidValue:

Select Case Err.Number

Case Is = 5

MsgBox "Can't calculate square root of negative number at cell " & cell.Address

Case Is = 13

MsgBox "Can't calculate square root of text at cell " & cell.Address

End Select

Resume Next

Tipp: Gehen Sie durch unseren Select Case Programm mehr über die Select Case-Struktur zu lernen.

Ergebnis:

Friendly Message

Friendly Message