Hallo,

mit dem nachstehendem Code kann man Formeln in der geöffneten Workbook-Datei finden:

Sub markCells()
    On Error GoTo Err_Handler
    Dim bErr_ModeNormal As Boolean
    Dim Sh As Worksheet
    Dim rngFound As Range
    Dim rng As Range
    bErr_ModeNormal = True
    For Each Sh In ActiveWorkbook.Worksheets
    
        Sh.Activate ' Testmodus
        
        bErr_ModeNormal = False
        Set rngFound = Nothing
        Set rngFound = Sh.Cells.SpecialCells(xlFormulas, 23)
        bErr_ModeNormal = True
        If Not rngFound Is Nothing Then
            For Each rng In rngFound
                rng.Select ' Testmodus
                '
                ' Prüfen, und markieren
                '
                
            Next
        End If
    Next
Err_Exit:
    Exit Sub
Err_Handler:
    If bErr_ModeNormal Then
        Resume Err_Exit
    Else
        Resume Next
    End If
End Sub

Erläuterung

Der Code macht nur die Zellen ausfindig und markiert diese.

Alle weiteren Befehle zum Markieren von Zellen, falls diese bestimmte Eigenschaften aufweisen, fehlen.

Der Befehl Sh.Cells.SpecialCells(xlFormulas, 23) verursacht einen abfangbaren Laufzeitfehler, falls in einer Tabelle keine Formel enthalten ist. Aus dem Grunde musste mit "On Error Goto ... " die Standard-Fehlermeldung abgefangen werden.

Der Suchbefehl zum Auffinden von Formeln wurde entnommen aus dieser Webseite: http://www.herber.de/forum/archiv/1024to1028/1026078_externe_Verknuepfungen_finden.html

Die Prüf- und markierungsbefehle müssen anstelle des Kommantars Prüfen, und markieren eingetragen werden.

Hat jemand bereits mit analytischen Fähigkeiten Erfahrungen?
Die Eigenschaften FormulaR1C1 bzw. Formula müssen ausgewertet und bei einem Treffer die Zelle markiert werden.

VG, BigBen