Bezugfehler #BEZUG finden

Forumthread: 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

AW: Bezugfehler #BEZUG finden

10.05.2016 13:39:26

Hajo_Zi
AW: Bezugfehler #BEZUG finden

10.05.2016 13:42:00

r2d2
Bezugfehler #BEZUG! per VBA finden

10.05.2016 14:22:10

NoNet

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

Infobox / Tutorial

Bezugfehler #BEZUG in Excel finden und beheben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Bezugfehler (#BEZUG!) in Excel schnell zu finden, kannst Du die folgende Methode nutzen:

VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul erstellen: Klicke im Menü auf Einfügen > Modul.

VBA-Code einfügen: Kopiere den folgenden Code in das Modul:

Sub ShowRefErrorCells()
   'Zeigt Zellen mit #BEZUG!-Fehler an
   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

Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle ShowRefErrorCells und klicke auf Ausführen. Dadurch werden alle Zellen mit Bezugfehler angezeigt.

Häufige Fehler und Lösungen

Fehlerhafte Daten: Wenn Du einen ungültigen Zellbezug hast, überprüfe die Zellen, auf die verwiesen wird. Stelle sicher, dass die referenzierten Zellen existieren.
VBA-Fehler: Falls der VBA-Code nicht funktioniert, stelle sicher, dass Du die richtigen Berechtigungen hast, um Makros auszuführen.
Leere Zellen: Manchmal können leere Zellen als #BEZUG! angezeigt werden. Überprüfe die Formeln in diesen Zellen.

Alternative Methoden

Bedingte Formatierung: Du kannst eine bedingte Formatierung verwenden, um Zellen mit Bezugfehlern zu kennzeichnen.
- Markiere den Bereich, den Du überprüfen möchtest.
- Gehe zu Start > Bedingte Formatierung > Neue Regel.
- Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden und gib die Formel =ISTFEHLER(A1) ein (ersetze A1 durch die erste Zelle des markierten Bereichs).
Fehlerüberprüfungs-Tool: In Excel gibt es das integrierte Fehlerüberprüfungs-Tool. Gehe zu Formeln > Fehlerüberprüfung, um mögliche Bezugfehler zu finden.

Praktische Beispiele

Beispiel 1: Wenn Du eine Formel wie =A1+B1 hast und A1 gelöscht wurde, wird ein Bezugfehler #BEZUG! angezeigt.
Beispiel 2: Eine Formel wie =SVERWEIS(D1;A:B;2;FALSCH) kann ebenfalls zu einem Bezugfehler führen, falls der Bereich A:B nicht vorhanden ist.

Tipps für Profis

Fehlerquelle identifizieren: Nutze die Funktion =ISTFEHLER() oder =ISTNV() in Deinen Formeln, um zu überprüfen, ob ein Fehler vorliegt.
Zellbezüge überprüfen: Wenn Du oft auf externe Daten zugreifst, achte darauf, dass die Datenquellen immer verfügbar sind.
Makros automatisieren: Wenn Du regelmäßig Bezugfehler überprüfen musst, überlege, das Makro zu automatisieren, damit es bei jedem Öffnen der Datei ausgeführt wird.

FAQ: Häufige Fragen

1. Wie kann ich alle Bezugfehler in einem großen Arbeitsblatt finden?
Verwende das oben beschriebene VBA-Skript, um schnell alle Zellen mit Bezugfehlern zu identifizieren.

2. Was bedeutet der Fehler #BEZUG! in Excel?
Der Fehler #BEZUG! tritt auf, wenn eine Formel auf eine Zelle verweist, die nicht mehr existiert oder ungültig ist.

3. Kann ich Bezugfehler auch ohne VBA finden?
Ja, Du kannst bedingte Formatierung oder das Fehlerüberprüfungs-Tool in Excel verwenden, um Bezugfehler zu erkennen.

Beliebteste Forumthreads (12 Monate)