gimli3311
Mar 10, 2015, updated at 15:22:00 (UTC)
view1022
view2
0
Goto Top

Mehrere Worksheets durchsuchen

GermansolvedQuestionVB for ApplicationsDevelopment
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 face-smile

Gruß Gimli3311
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 265793

Url: https://administrator.de/contentid/265793

Printed on: April 25, 2024 at 12:04 o'clock

2 Comments
Latest comment
Goto Top
Mitglied: 114757
Solution 114757 Mar 10, 2015 updated at 15:22:00 (UTC)
Goto Top
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
Member: Gimli3311
Gimli3311 Mar 10, 2015 updated at 15:22:54 (UTC)
Goto Top
Danke Jodel32 face-smile
dass hab ich gesucht.

Gruß Gimli3311
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments