CVErr-Funktion

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.

Eine implizite Umwandlung eines Error-Werts ist nicht zulässig. Beispielsweise können Sie den Rückgabewert von CVErr nicht direkt einer Variablen zuweisen, die keine Variant-Variable ist. Sie können jedoch eine explizite Umwandlung des Werts (mit CInt, CDbl usw.) ausführen, der von CVErr zurückgegeben wird, und diesen umgewandelten Wert einer Variablen mit geeignetem 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
Ihre Fähigkeiten erweitern
Schulung erkunden
Neue Funktionen als Erster erhalten
An Office Insider teilnehmen

War diese Information hilfreich?

Vielen Dank für Ihr Feedback!

Vielen Dank für Ihr Feedback. Es klingt, als ob es hilfreich sein könnte, Sie mit einem unserer Office-Supportmitarbeiter zu verbinden.

×