Sub zeigeErrorEigenschaften()
    On Error GoTo fehleranzeigen

    Dim dividend As Integer
    Dim divisor As Integer
    Dim ergebnis As Integer

    dividend = 10
    divisor = 0

    ergebnis = dividend / divisor
    Exit Sub

fehleranzeigen:
    Debug.Print "Err.Number=" & Err.Number
    Debug.Print "Err.Description=" & Err.Description
End Sub