Hallo zusammen,

ich lese mit folgendem Codeschnipsel alle Dateien aus einem Verzeichnis aus.

Do While strDatei <> ""                     ' BEGINN Schleife zum Durchforsten der Dateien im Verzeichnis
       
         Workbooks.Open (strVerzeichnis & strDatei)
   
         Set oWBExterneDatei = ActiveWorkbook 

         strDatei = Dir()
         oWBExterneDatei.Close
    Loop                                        ' ENDE Schleife zum Durchforsten der Dateien im Verzeichnis

Ich würde aber gerne auch die Dateien in eventuell vorhandenen Unterverzeichnissen einlesen. Wie muss ich es machen, dass auch die Unterverzeichnisse eingelesen werden?

Und als kleine Steigerung, wie kann ich nur Unterverzeichnisse berücksichtigen, die eine bestimmte Zeichenfolge enthalten?

Für Eure Mühen im voraus vielen Dank!

Gruß
Jürgen