Zirkelbezug finden

Forumthread: Zirkelbezug finden

Zirkelbezug finden

07.10.2022 07:25:19

stef26

Guten Morgen liebe Excel Profis,
ich habe ein Problem (oder auch nicht?) mit einem Zirkelbezug in meiner Arbeitsmappe.
Wenn ich die Datei öffne bringt mir Excel die Meldung Zirkelbezug.
Diesen will ich ja nicht drin haben, deshalb suche ich diesen unter Formeln - Fehlerüberprüfung.
Leider ist da das Menü Zirkelbezüge grau.
Hab das in jeder Tabelle der Mappe überprüft.
Auch in der Statusleiste steht kein Zirk, was ja auf einen Zirkelbezug hinweisen könnte.
Gibt es ein Makro, welches mir die Zellen mit den Zirkelbezug anzeigen kann?
Hab auch unter Formeln. Namensmanager mal geschaut ob da ein Fehler sein könnte, aber auch da bin ich nicht fündig geworden.
Leider ist die Datei zu groß um die hier hochladen zu können.
Hat von euch jemand eine Idee, wie ich den Zirkelbezug finden kann, wenn selbst Excel mir diesen nicht anzeigen kann?
Gruß
Stefan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zirkelbezug finden

07.10.2022 08:28:43

werner
AW: Zirkelbezug finden

07.10.2022 08:48:53

stef26
AW: Zirkelbezug finden

07.10.2022 09:38:06

Charly
AW: Zirkelbezug finden

07.10.2022 09:41:38

Daniel
AW: Zirkelbezug finden

07.10.2022 09:58:46

peterk

AW: Zirkelbezug finden

07.10.2022 08:28:43

werner

Hey,
ich hatte es auch und konnte es lange nicht finden.
Dann wurde ich in den Bedingten Formatierung fündig.
Gruß

AW: Zirkelbezug finden

07.10.2022 08:48:53

stef26

Hallo Werner,
danke für die Rückmeldung. Hab alle Formatierungen aller Blätter gelöscht. Beim Öffnen kommt immer noch die Zirkelbezugsmeldung.
Schade, versuch war es Wert.
Ich dachte ich hatte im Netz mal ein VBA Code gefunden, welcher mir die Zirkelbezüge in einer Tabelle aufgelistet hat.
Hab aber leider nichts mehr gefunden.
Gibt es sonst noch Ideen?
Liebe Grüße
Stefan

AW: Zirkelbezug finden

07.10.2022 09:41:38

Daniel

Hi
folgender Code listet dir alle Zellen mit Zirkelbezug.


Sub test()
Dim erg As String
Dim sh As Worksheet
Dim Zelle As Range
For Each sh In ActiveWorkbook.Worksheets
Set Zelle = sh.Cells.Find(what:="=*", LookIn:=xlFormulas, lookat:=xlWhole)
If Not Zelle Is Nothing Then
For Each Zelle In sh.Cells.SpecialCells(xlCellTypeFormulas)
If Not Intersect(Zelle, Zelle.DirectPrecedents) Is Nothing Then
erg = erg & vbLf & sh.Name & "!" & Zelle.Address(0, 0) & " - direkt"
ElseIf Not Intersect(Zelle, Zelle.Precedents) Is Nothing Then
erg = erg & vbLf & sh.Name & "!" & Zelle.Address(0, 0) & " - indirekt"
Else
End If
Next
End If
Next
MsgBox IIf(erg = "", "keine Zirkelbezüge vorhanden", erg)
End Sub

Gruß Daniel

AW: Zirkelbezug finden

07.10.2022 09:58:46

peterk

Hallo Stefan
Zirkelbezüge konnen auch bei der Datenüberprüfung vorhanden sein. Anbei ein kleines Makro, das Dir alle Zellen mit Datenüberprüfung (Formel oder Liste ausgibt). Vieleicht liegt der Fehler dort.


Sub dataValidation()
Dim WS As Worksheet
Dim CL As Range
Dim DV As Range
For Each WS In ThisWorkbook.Worksheets
'Loop through all cells with validation using Specialcells
On Error Resume Next
Set DV = WS.Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo 0
If Not (DV Is Nothing) Then
For Each CL In DV
'Print cell address and validation type and formula to immediate window
Select Case CL.Validation.Type
'Only Formula or List
Case 3, 7: Debug.Print WS.Name & vbTab & CL.Address & vbTab & CL.Validation.Type & vbTab & CL.Validation.Formula1
End Select
Next CL
End If
Set DV = Nothing
Next WS
End Sub

Peter

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei und achte darauf, dass die Fehlermeldung über den Zirkelbezug erscheint.
Gehe zu "Formeln" in der oberen Menüleiste und wähle "Fehlerüberprüfung". Überprüfe, ob der Menüpunkt „Zirkelbezüge“ verfügbar ist.

Wenn der Menüpunkt grau ist, benutze die folgende VBA-Makro, um die Zellen mit Zirkelbezügen zu finden:

Sub test()
   Dim erg As String
   Dim sh As Worksheet
   Dim Zelle As Range
   For Each sh In ActiveWorkbook.Worksheets
       Set Zelle = sh.Cells.Find(what:="=*", LookIn:=xlFormulas, lookat:=xlWhole)
       If Not Zelle Is Nothing Then
           For Each Zelle In sh.Cells.SpecialCells(xlCellTypeFormulas)
               If Not Intersect(Zelle, Zelle.DirectPrecedents) Is Nothing Then
                   erg = erg & vbLf & sh.Name & "!" & Zelle.Address(0, 0) & " - direkt"
               ElseIf Not Intersect(Zelle, Zelle.Precedents) Is Nothing Then
                   erg = erg & vbLf & sh.Name & "!" & Zelle.Address(0, 0) & " - indirekt"
               End If
           Next
       End If
   Next
   MsgBox IIf(erg = "", "keine Zirkelbezüge vorhanden", erg)
End Sub

Führe das Makro aus, um die Zellen mit dem Zirkelbezug anzuzeigen.

Häufige Fehler und Lösungen

Fehler: Zirkelbezug wird nicht angezeigt.

Lösung: Überprüfe, ob in der Datei Datenüberprüfungen vorhanden sind. Verwende das folgende Makro, um alle Zellen mit Datenüberprüfung anzuzeigen:

Sub dataValidation()
   Dim WS As Worksheet
   Dim CL As Range
   Dim DV As Range
   For Each WS In ThisWorkbook.Worksheets
       On Error Resume Next
       Set DV = WS.Cells.SpecialCells(xlCellTypeAllValidation)
       On Error GoTo 0
       If Not (DV Is Nothing) Then
           For Each CL In DV
               Select Case CL.Validation.Type
                   Case 3, 7: Debug.Print WS.Name & vbTab & CL.Address & vbTab & CL.Validation.Type & vbTab & CL.Validation.Formula1
               End Select
           Next CL
       End If
       Set DV = Nothing
   Next WS
End Sub

Fehler: Fehlermeldung Zirkelbezug bleibt.
- Lösung: Überprüfe alle Formeln in der Datei und entferne eventuell fehlerhafte Verknüpfungen oder Berechnungen.

Alternative Methoden

Verwendung von Excel-Add-Ins: Du kannst spezielle Add-Ins verwenden, die bei der Identifikation von Zirkelbezügen helfen. Suche nach "Zirkelbezug Excel anzeigen" in der Excel-Add-In-Galerie.
Manuelle Überprüfung: Gehe jede Formel manuell durch und überprüfe die Verweise. Achte besonders auf Zellen, die sich auf sich selbst beziehen.

Praktische Beispiele

Zirkelbezug in einer Formel: Wenn du in Zelle A1 die Formel =A1 + 1 verwendest, ist dies ein Zirkelbezug. Excel wird hier eine Fehlermeldung anzeigen.
Datenüberprüfung: Wenn du eine Zelle hast, die auf eine Liste verweist, die sich auf sich selbst bezieht, kann dies ebenfalls einen Zirkelbezug verursachen. Prüfe die Zellen auf Datenvalidierung.

Tipps für Profis

Einstellung für Zirkelbezüge zulassen: Manchmal ist es sinnvoll, sich Zirkelbezüge anzeigen zu lassen. Du kannst dies unter "Datei" → "Optionen" → "Formeln" aktivieren, um eine bessere Kontrolle über Berechnungen zu haben.
Verwende die Statusleiste: Achte auf die Statusleiste in Excel; sie kann dir anzeigen, wenn ein Zirkelbezug vorhanden ist, auch wenn die Fehlerüberprüfung es nicht anzeigt.

FAQ: Häufige Fragen

1. Was ist ein Zirkelbezug in Excel?
Ein Zirkelbezug entsteht, wenn eine Formel auf sich selbst verweist, entweder direkt oder indirekt.

2. Wie finde ich den Zirkelbezug in Excel?
Du kannst die Fehlerüberprüfung verwenden oder ein VBA-Makro einsetzen, um alle Zellen mit Zirkelbezügen aufzulisten.

3. Was tun, wenn ich einen fehlerhaften Zirkelbezug finde?
Überprüfe die betroffenen Zellen und passe die Formeln an, um den Zirkelbezug zu entfernen oder zu korrigieren.

4. Wie kann ich Zirkelbezüge in Excel entfernen?
Identifiziere die Zellen mit Zirkelbezügen und passe die Formeln an, um direkte oder indirekte Verweise auf sich selbst zu vermeiden.

Beliebteste Forumthreads (12 Monate)

Forumthread: Zirkelbezug finden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zirkelbezug 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

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread