Zellfehlerwerte

Sie können einen Zellfehlerwert in eine Zelle einfügen oder den Wert einer Zelle auf einen Fehlerwert prüfen, indem Sie die CVErr-Funktion verwenden. Die Zellfehlerwerte können eine der folgenden xlCVError-Konstanten sein.

Konstante	Fehlernummer	Zellfehlerwert
xlErrDiv0	2007	#DIV/0!
xlErrNA	2042	#N/A
xlErrName	2029	#NAME?
xlErrNull	2000	#NULL!
xlErrNum	2036	#NUM!
xlErrRef	2023	#REF!
xlErrValue	2015	#VALUE!

Beispiel

In diesem Beispiel werden sieben Zellfehlerwerte in die Zellen A1:A7 in Abrietsblatt1 eingefügt.

myArray = Array(xlErrDiv0, xlErrNA, xlErrName, xlErrNull, _ 
 xlErrNum, xlErrRef, xlErrValue) 
For i = 1 To 7 
 Worksheets("Sheet1").Cells(i, 1).Value = CVErr(myArray(i - 1)) 
Next i

Dieses Beispiel zeigt eine Meldung an, die angezeigt wird, wenn die aktive Zelle in Arbeitsblatt1 einen Zellfehlerwert enthält. Verwenden Sie dieses Beispiel als Framework für einen Cell-Error-Value-Fehlerhandler.

Worksheets("Sheet1").Activate 
If IsError(ActiveCell.Value) Then 
 errval = ActiveCell.Value 
 Select Case errval 
 Case CVErr(xlErrDiv0) 
 MsgBox "#DIV/0! error" 
 Case CVErr(xlErrNA) 
 MsgBox "#N/A error" 
 Case CVErr(xlErrName) 
 MsgBox "#NAME? error" 
 Case CVErr(xlErrNull) 
 MsgBox "#NULL! error" 
 Case CVErr(xlErrNum) 
 MsgBox "#NUM! error" 
 Case CVErr(xlErrRef) 
 MsgBox "#REF! error" 
 Case CVErr(xlErrValue) 
 MsgBox "#VALUE! error" 
 Case Else 
 MsgBox "This should never happen!!" 
 End Select 
End If

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.