Wenn Sie mit der Fehlerbehandlung noch nicht vertraut sind, empfehlen wir Ihnen dringend, dieses Beispiel zuerst zu lesen. Wenn ein Fehler in Excel VBA auftritt, die Eigenschaften der Fehlerobjekt sind mit Informationen gefüllt.
Lage:
Das folgende Programm berechnet die Quadratwurzel von Zahlen.
1. Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
Dim rng als Bereich, Zelle als Bereich
Set rng = Auswahl
Für jede Zelle In rng
Bei Fehler GoTo InvalidValue:
cell.Value = Sqr(cell.Value)
Nächste Zelle
Abo beenden
Ungültiger Wert:
MsgBox Err.Number & " " & Err.Description & " at cell " & cell.Address
Weiter
Ergebnis, wenn Sie Range("B2:B6") auswählen und auf die Befehlsschaltfläche auf dem Blatt klicken:
Erläuterung: Beim Auftreten eines Fehlers wird die Eigenschaft Nummer des Objekts Err mit einer eindeutigen Fehlernummer des aktuellen Fehlers und die Eigenschaft Beschreibung mit der Fehlerbeschreibung des aktuellen Fehlers gefüllt.
2. Diese Beschreibungen sind für die Benutzer Ihres Programms möglicherweise nicht sehr hilfreich. Sie können die Fehlermeldungen benutzerfreundlicher gestalten, indem Sie den letzten Teil des Makros wie folgt ändern:
Ungültiger Wert:
Fallfehlernummer auswählen
Fall ist = 5
MsgBox "Kann die Quadratwurzel der negativen Zahl in Zelle nicht berechnen" & cell.Address
Fall ist = 13
MsgBox "Quadratwurzel des Textes in Zelle kann nicht berechnet werden" & cell.Address
Auswahl beenden
Weiter
Tipp: Sehen Sie sich unser Select Case-Programm an, um mehr über die Select Case-Struktur zu erfahren.
Ergebnis:
