Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

CVErr

Wandelt Fehlernummern in einen Variant-Wert mit dem Untertyp Error um.

Syntax:

CVErr()

Parameter:

Expression (Datentyp Variant): Erwartet eine Fehlernummer.

Beispiele:

Mit CVErr lassen sich beispielsweise Berechnungsfunktionen so ausstatten, dass sie beim Auftreten eines Fehlers einen Wert zurckgeben, der von der aufrufenden Routine als Fehlerwert und nicht als Ergebniswert erkannt wird. Das folgende Beispiel verdeutlicht die Technik:

Public Sub DividierenMitFehler()

    Dim varErgebnis As Variant

    varErgebnis = Division(1, 0)

    If IsError(varErgebnis) Then

        MsgBox "Beim Dividieren ist ein Fehler aufgetreten."

    End If

End Sub

Public Function Division(x As Double, y As Double) As Variant

    On Error Resume Next

    Dim dblErgebnis As Double

    dblErgebnis = x / y

    If Err.Number = 0 Then

        Division = dblErgebnis

    Else

        Division = CVErr(Err.Number)

    End If

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.