---

Sub division_mit_fehlernummer()
    On Error GoTo Fehlerbehandlung

    Dim zaehler As Double
    Dim nenner As Double
    Dim fehlermeldung As String
    Dim fehlernummer As Integer
    Dim keineZahlMeldung As String

    keineZahlMeldung = "Ihre Eingabe ist keine Zahl"

    zaehler = InputBox("Zaehler?", "Zaehler eingeben")
    nenner = InputBox("Nenner?", "Nenner eingeben")

    MsgBox "Quotient: " & zaehler / nenner
    Exit Sub

Fehlerbehandlung:
    fehlernummer = Err.Number

    If fehlernummer = 11 Then
        fehlermeldung = "Versuch durch 0 zu teilen"
    End If
    If fehlernummer = 13 Then
        fehlermeldung = " Sie müssen eine Zahl eingeben"
    End If
    If fehlernummer = 6 Then
        fehlermeldung = "Überlauf"
    End If
    MsgBox (fehlermeldung)
End Sub

---