Gibt einen Variant-Wert des Untertyp Error zurück, der eine vom Benutzer angegebene Fehlernummer enthält.
Syntax
CVErr ( Fehlernummer )
Die erforderliche ArgumentFehlernummer ist eine beliebige gültige Fehlernummer.
Hinweise
Verwenden Sie die CVErr-Funktion, um benutzerdefinierte Fehler in von Ihnen geschriebenen Prozeduren zu erstellen. Wenn Sie z. B. eine Funktion erstellen, die mehrere Argumente akzeptiert und normalerweise eine Zeichenfolge zurückgibt, können Sie in der Funktion die Eingabeargumente auswerten, um sicherzustellen, dass diese sich im jeweils zulässigen Bereich befinden. Ist dies nicht gegeben, ist es wahrscheinlich, dass die Funktion nicht das erwartete Ergebnis zurückgibt. In diesem Fall können Sie über CVErr eine Fehlernummer zurückgeben, der Sie die auszuführende Aktion entnehmen können.
Beachten Sie, dass die implizite Konvertierung eines Fehlers nicht zulässig ist. Beispielsweise können Sie den Rückgabewert von CVErr nicht direkt einem Variable zuweisen, der kein Variant-Wert ist. Sie können jedoch eine explizite Konvertierung (mit CInt, CDbl usw.) des von CVErr zurückgegebenen Werts durchführen und diesen einer Variablen des entsprechenden Datentyp zuweisen.
Beispiel
Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die CVErr-Funktion verwendet, um einen Variant-Wert zurückzugeben, dessen VarType auf vbError (10) festgelegt ist. Die benutzerdefinierte Funktion CalculateDouble gibt einen Fehler zurück, wenn das an sie übergebene Argument keine Zahl ist. Sie können CVErr verwenden, um benutzerdefinierte Fehler aus benutzerdefinierten Prozeduren zurückzugeben oder die Behandlung eines Laufzeitfehlers zu verzögern. Verwenden Sie die IsError-Funktion, um zu testen, ob der Wert einem Fehler entspricht.
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function
