Herbers Excel-Forum - das Archiv

geschütze, verknüpfte Zellen finden

Bild

Betrifft: geschütze, verknüpfte Zellen finden
von: Thomas

Geschrieben am: 22.02.2005 12:03:28
Hallo,
gibt es eine Möglichekeit, mir alle die Zellen anzeigen zu lassen, die zu eine
anderen Datei verknüpft sind und gleichzeitig über zellschutz verfügen? Die verknüpften Zellen finde ich mit "Suchen" aber nun brauch ich davon alle die Zellen, die geschützt sind. Zur Not würd ich auch ein Makro nutzen.
Danke,
Thomas
Bild

Betrifft: AW: geschütze, verknüpfte Zellen finden
von: Uduuh

Geschrieben am: 22.02.2005 13:24:10
Hallo,
in ein Modul:
Sub Formeln_suchen_extern()
Dim strName As String, sh As Worksheet
Dim FIndex As Boolean, a As Range
Application.ScreenUpdating = False
strName = "Formeln_"
FIndex = False
z = 2
For Each sh In ActiveWorkbook.Worksheets
Set R1 = sh.Range(sh.Cells(1, 1), sh.Cells(1, 1).SpecialCells(xlLastCell))
For Each a In R1.Cells
If a.HasFormula And InStr(a.FormulaLocal, "[") > 0 And a.Locked = True Then
If FIndex = False Then
Worksheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = strName
Kopf = Array("Blatt", "Zelle", "Zeile", "Spalte", "Formel")
For T = 1 To 5
Cells(1, T) = Kopf(T - 1)
Cells(1, T).Font.Bold = True
Next T
FIndex = True
End If
Sheets(strName).Cells(z, 1) = sh.Name
Sheets(strName).Cells(z, 2) = a.Address(rowabsolute:=False, columnabsolute:=False)
Sheets(strName).Cells(z, 3) = a.Row
Sheets(strName).Cells(z, 4) = a.Column
Sheets(strName).Cells(z, 5) = "'" & a.FormulaLocal
z = z + 1
End If
Next a
Next sh
Columns("A:E").EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo

Das Forum lebt auch von den Rückmeldungen an die Antworter!
 Bild
Excel-Beispiele zum Thema "geschütze, verknüpfte Zellen finden"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen