Bezugfehler #BEZUG! per VBA finden
10.05.2016 14:22:10
NoNet
Hi C3PO,
hier ein VBA-Ansatz : Es werden nur alle Zehllen überprüft, die einen Fehlerwert benhalten :
Sub ShowRefErrorCells()
'Zeigt Zellen mit #BEZUG!-Fehler an
'10.05.2016, NoNet - www.excelei.de
Dim rngErrorCells As Range, rngC As Range, rngErrRef As Range
On Error Resume Next
'Zellen mit Funktionen und #BEZUG!-Fehler :
Set rngErrorCells = Cells.SpecialCells(xlCellTypeFormulas, 16)
On Error GoTo 0
If Not rngErrorCells Is Nothing Then
For Each rngC In rngErrorCells
If rngErrRef Is Nothing Then
Set rngErrRef = rngC
Else
Set rngErrRef = Union(rngErrRef, rngC)
End If
Next
End If
'Zellen mit konstanten Werten und #BEZUG!-Fehler :
Set rngErrorCells = Cells.SpecialCells(xlCellTypeConstants, 16)
On Error GoTo 0
If Not rngErrorCells Is Nothing Then
For Each rngC In rngErrorCells
If rngErrRef Is Nothing Then
Set rngErrRef = rngC
Else
Set rngErrRef = Union(rngErrRef, rngC)
End If
Next
End If
If Not rngErrRef Is Nothing Then
MsgBox rngErrRef.Address, vbOKOnly, "#BEZUG!-Fehler im Tabellenblatt"
End If
End Sub
Salut, NoNet