AW: Links in extra Blatt auflisten
20.08.2004 09:43:48
Jutta
Hallo Marc,
ich wollte die Links in einem extra Blatt aufgelistet.
Ich habe jetzt etwas (fast) passendes gefunden:
Sub Formeln_suchen()
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
End Sub
Leider geht das nur über ein Tabellenblatt, ich brauche es aber für die ganze Mappe.
Gruß
Jutta