ich habe eine banale Frage. Wie stellt man fest, wo in einer Arbeitsmappe sich Verknüpfungen zu einer anderen Mappe verbergen, ohne dass man jede Zelle anklicken muss?
Mein Dank ist Euch gewiss:-) Konni
Sub FormelnExt_Suchen()
If MsgBox("Sollen externe Formeln jetzt gesucht werden?", vbYesNo) = vbYes Then
n = ActiveSheet.Name
n2 = "Formeln_" & n
FIndex = False
z = 2
Set R1 = Range("a1", Range("a1").SpecialCells(xlLastCell))
For Each a In R1.Cells
If a.HasFormula Then
If InStr(a.Formula, "[") > 0 Then
If FIndex = False Then
Worksheets.Add after:=Sheets(n)
ActiveSheet.Name = n2
Kopf = Array("Zelle", "Zeile", "Spalte", "Formel")
For t = 1 To 4
Cells(1, t) = Kopf(t - 1)
Cells(1, t).Font.Bold = True
Next t
FIndex = True
End If
Sheets(n2).Cells(z, 1) = a.Address(rowabsolute:=False, columnabsolute:=False)
Sheets(n2).Cells(z, 2) = a.Row
Sheets(n2).Cells(z, 3) = a.Column
Sheets(n2).Cells(z, 4) = "'" & a.Formula
z = z + 1
End If
End If
Next a
Columns("A:D").EntireColumn.AutoFit
Range("A1").Select
Else
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen