5. Nested Error Handling
Sie können mehrere Ebenen der Fehlerbehandlung auf geschachtelte Weise verwenden. Auf diese Weise können Sie verschiedene Arten von Fehlern getrennt behandeln.
Private Sub CommandButton4_Click()
Dim firstNum, secondNum As Double
On Error GoTo error_handler1
firstNum = InputBox("Enter the first number")
On Error GoTo error_handler2
secondNum = InputBox("Enter the second number")
MsgBox firstNum / secondNum
Exit Sub
error_handler2:
MsgBox "Error! You tried to divide a number by zero! Try again!"
Exit Sub
error_handler1:
MsgBox "You did not enter a number! Try again!"
End Sub
Weitere interessante Artikel
6. Eingabevalidierung mit IsNumeric
Bevor Sie eine arithmetische Operation ausführen, können Sie die Eingabe mit der Funktion IsNumeric überprüfen, um sicherzustellen, dass die eingegebenen Daten numerisch sind.
Private Sub CommandButton5_Click()
Dim userInput As String
userInput = InputBox("Enter your age:")
If Not IsNumeric(userInput) Then
MsgBox "The input you entered is invalid. Please enter a number."
Exit Sub
End If
MsgBox "Your age is " & userInput & " years."
End Sub
Schlussfolgerung
Die Fehlerbehandlung ist ein wichtiger Bestandteil der Programmierung in Excel VBA. Durch die Implementierung verschiedener Arten der Fehlerbehandlung können Programmierer robustere und benutzerfreundlichere Anwendungen erstellen und die Wahrscheinlichkeit von Abstürzen aufgrund ungültiger Eingaben verringern.