Excel-VBA-Err-Objekt
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.
-
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:
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.
-
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: