gibt es eine Möglichkeit, sich anzeigen zu lassen, ob andere Blätter auf ein bestimmtes Tabellenblatt zugreifen.
Mir würde nur einfallen in jeder Zelle auf Nachfoger zu klicken.
VG
dim rng as Range
set rng = Sheets("Tabelle2").Cells.Find(what:="Tabelle1!", Lookat:=xlpart, Lookin:=xlformulas)
if not rng is nothing then Msgbox "Zugriff auf Tabelle1"
Gruß Daniel
Sub SuchTBinFormeln()
Dim TbName As String
Dim sh As Worksheet
Dim Ergebnis As String
Dim Zelle As Range
TbName = "Tabelle1"
For Each sh In ActiveWorkbook.Worksheets
If sh.Name TbName Then
If Not sh.Cells.Find(what:="=*", LookIn:=xlFormulas, lookat:=xlWhole) Is Nothing Then
For Each Zelle In sh.Cells.SpecialCells(xlCellTypeFormulas)
If Zelle.Formula Like "*" & TbName & "*" Then Ergebnis = Ergebnis & Chr(10) & _
sh.Name & "!" & Zelle.Address(0, 0)
Next
End If
End If
Next
If Ergebnis = "" Then
MsgBox "Keine Zellbezüge auf Tabellenblatt " & TbName & " gefunden."
Else
MsgBox "Zellbezüge auf Tabellenblatt " & TbName & " gefunden in:" & Ergebnis
End If
End Sub
Gruß Daniel