Formeln in Worksheets suchen und auflisten
05.09.2003 08:44:50
Torsten K.
ich habe vor ein paar Tagen ein Makro von xXx (Udo aus'm Pott) gefunden, welches tadellos läuft.
Dieses Makro listet alle Formeln mit der Adresse in einem separaten Blatt auf:
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 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
Next A
Columns("A:D").EntireColumn.AutoFit
Range("A1").Select
End Sub
Ich würde nun gerne wissen, wie der Code angepasst werden muß, damit nur die Verknüpfungen gelistet werden, die einen externen Bezug, also zu anderen Dateien haben. Als VBA-Einsteiger bekomme ich das alleine nicht hin.
Wäre nett, wenn mir jemand helfen könnte.
Schönen Dank im voraus.
Gruß
Torsten