Zirkelbezug-Suche mit Makro oder Add In
27.06.2019 13:50:49
stormlamp
gibt es ein AddIn oder ein Makro, das alle Zirkelbezüge in einer Arbeitsmappe in einem neuen Tabellenblatt auflistet?
Im Internet habe ich ein Makro gefunden, das so etwas macht allerdings nur dann, wenn der Zirkelbezug auf einem Tabellenblatt ist:
Sub ZirkelbezuegeAuflisten()
Set AktBlatt = ActiveSheet
Sheets.Add
Set NeuesBlatt = ActiveSheet
Zielbereich = ActiveCell.Address
AktBlatt.Activate
Zeilenzähler = 0
On Error GoTo MakroNeuAufnehmen
For Each Zelle In AktBlatt.UsedRange
If Left(Zelle.Formula, 1) = "=" Then
Ergebnis = Intersect(AktBlatt.Range(Zelle.Address), _
AktBlatt.Range(Zelle.Precedents.Address))
NeuesBlatt.Range(Zielbereich).Offset(Zeilenzähler, _
0).Value = Zelle.Address(False, False)
NeuesBlatt.Range(Zielbereich).Offset(Zeilenzähler, _
1).Value = " " & Zelle.Formula
Zeilenzähler = Zeilenzähler + 1
Weiter:
End If
Next
Exit Sub
MakroNeuAufnehmen:
Resume Weiter
End Sub
Hat jemand eine Idee, ob und wie man das erweitern/ändern könnte um alle Zirkelbezüge einer Arbeitsmappe auflisten zu lassen?
Viele Grüße
Hans