Hallo zusammen,

bin neu im Forum und kein Entwickler, deswegen eine vielleicht triviale Frage, auf die mir aber seit Freitag keine Lösung einfällt. Wodurch muss ich im folgenden Code XXX ersetzen, damit die Suche im kompletten Excel durchgeführt wird? Kann ich das direkt einfügen oder muss ich alle Zellen durchlaufen. Zum Hintergrund ich öffne aus Access mehrere Excel-Files nacheinander, die eine unteschiedliche Zahl von Arbeitsblättern haben. Auf allen Arbeitsblättern soll nach dem Muster gesucht werden.

If .Show = True Then
        For Each vItem In .SelectedItems

            Set ExcelFile = objExcel.workbooks.Open(vItem)
            anzahl = ExcelFile.Worksheets.Count
           
            For i = 1 To anzahl
                ExcelFile.Worksheets(i).Activate
                           
                        suche = "\[P:1185\]"
                        ersetzen = "[R:title_comments_blb] [MSI:statementdate_str]"
                          
                        With objRegEx
                            .Global = True
                            '.IgnoreCase = True
                            '.MultiLine = False
                            .Pattern = suche
                            .Global = True
                            Set objMatchCollection = .Execute(XXX)

                            For Each objMatch In objMatchCollection
                                MsgBox (objMatch)
                       
                            Next
                        End With
                              
            Next
            ExcelFile.Save
            ExcelFile.Close
           
        Next

P.S.: Mir ist klar, dass ich für das aktuelle Beispiel keine RegEx brauchen würde. Die Werte sind aber nur zum Testen des Skripts.

Ich hoffe mir kann jemand weiterhelfen.

Herzlichen Dank,

Stefan