Mehrere Worksheets durchsuchen

Guten Tag Zusammen,

Zu meinem Problem: Ich öffne eine Datei und suche in der nach Begriffen. Im jetzigen Fall sucht es nur Sheets 1 ab wie bekomme ich hin das es die anderen Sheets auch durchsucht?

Code:

            'öffne Datei, nur Lesen, Keine Updates  
            Set wb = Workbooks.Open(f, ReadOnly:=True, UpdateLinks:=0).Sheets(1)
            
                'Suche nach Logbuch oder Logbook in Datei --> Funktion: search()  
                blFound = search()
                
                'Ruft Funktion checkTemplate auf und gibt eine Ganzzahl zurück ()  
                lngTemplate = checkTemplate(blFound)

            'Schließe Datei. False = ohne zu speichern!  
            wb.Parent.Close False

Habe es schon so versucht:

            'öffne Datei, nur Lesen, Keine Updates  
            Set wb = Workbooks.Open(f, ReadOnly:=True, UpdateLinks:=0).Sheets(1)
            For Each wb In Worksheets
                'Suche nach Logbuch oder Logbook in Datei --> Funktion: search()  
                blFound = search()
                
                'Ruft Funktion checkTemplate auf und gibt eine Ganzzahl zurück ()  
                lngTemplate = checkTemplate(blFound)
            Next 
            'Schließe Datei. False = ohne zu speichern!  
            wb.Parent.Close False

Problem: Die Excel-Dateien gingen nicht mehr zu.

Schonmal Danke für eure Hilfe

Gruß Gimli3311

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 265793

Url: https://administrator.de/forum/mehrere-worksheets-durchsuchen-265793.html

Ausgedruckt am: 11.01.2025 um 15:01 Uhr

2 Kommentare

Neuester Kommentar

Moin,
du nutzt deine Workbook-Variable wb doppelt...
Definiere eine eigene Variable für die Sheets und für das Workbook !

'Referenz zum Workbook holen  
Set wb = Workbooks.Open(f, ReadOnly:=True, UpdateLinks:=0)
'Für jedes Sheet in den Worksheets des Workbook  
For Each ws In wb.Worksheets
'....  
Next

Gruß jodel