Office: (Office 2013) Schleife um Workbook Auszuwählen ohne Namen zu kennen

Hallo Leute,

Ich versuche gerade ein Workbook auszuwählen, welches jeden Tag mit einem neuen Namen automatisch zugesendet wird, um darin ein Makro zum laufen zu bringen.
Hier mal der Code:

Code:

For i = 1 To 10
        
        If Workbooks(i).Sheets(1).Cells(1, 1).Value = "Quality Gates Management Excel Report" Then
        Workbooks(i).Sheets(2).Activate
        End If
        
    Next i

Ich bekomme leider immer ein 'Subscript out of range (9)' Error.

Wäre super wenn mir wer helfen könnte!!

Danke & MfG,
Dominik

 

Du musst Excel das Workbook schon irgendwie mitteilen, entweder wo es sich befindet, oder es vorher öffnen.

Hinter Workbooks(1) muss sich ja auch ein tatsächliches Workbook befinden.

Also entweder du öffnest das Workbook manuell oder über ein Makro, dann kannst du daran Änderungen vornehmen.

 

Die Datei ist bereits geöffnet, mit der Schleife will ich nur verhindern, dass falls 4-5 Dateien offen sind auch wirklich nur diese ausgewählt wird.

 

Du musst die Obergrenze der For Schleife an deine Anzhal an Workbooks anpassen:

For i = 1 To Workbooks.Count

If Workbooks(i).Sheets(1).Cells(1, 1).Value = "Quality Gates Management Excel Report" Then
Workbooks(i).Sheets(2).Activate
End If

Next i

Ich habe dann keinen Fehler mehr.

 

Vielen vielen Dank! Funktioniert.