Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bezugfehler #BEZUG finden

Bezugfehler #BEZUG finden
10.05.2016 13:32:04
r2d2
Hallo,
gibt es eine "schnelle" Methode, um in einem Arbeitsblatt zu ermitteln, ob ein Bezugsfehler in einer Zelle vorliegt?
Natürlich könnte man mit einer Schleife von Zelle A1:Z2000 jede Zelle einzeln abfragen.
Aber geht das auch "schneller"?
Danke, Gruß, r2d2

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bezugfehler #BEZUG finden
10.05.2016 13:39:26
Hajo_Zi
Formeln, Formelüberwachung, Fehlerüberprüfung

AW: Bezugfehler #BEZUG finden
10.05.2016 13:42:00
r2d2
Ja super, und wie würde das ganze per VBA funktionieren mit entsprechender "Ausgabe" ob ein Fehler vorhanden ist oder nicht?
Danke, Gruß, r2d2

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
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge