Makro auch in Unterordnern ausführen
05.04.2017 12:35:15
Kai
ich bin der Neue. Meine Excelkenntnisse würde ich als gut bis sehr gut bezeichnen. Mit VBA habe ich zwar schon etwas herumgespielt, bin aber grundsätzlich gesehen noch Neuling. Inzwischen musste ich einsehen dass ein Buch lesen und im Internet suchen nicht ausreicht um VBA zu verstehen, daher werde ich im Mai einen Bildungsurlaub zum Thema Programmieren mit VBA antreten. Da ich mich unter anderem noch an DOS erinnern kann und mich darin auch gut zurecht gefunden habe ist bei mir ein gewisses Verständnis für Programmiersprachen vorhanden.
Jetzt zu meiner Frage:
Ich habe eine ganze Reihe von Dateien, in denen ich jeweils das erste Blatt umbenennen möchte. Mittels Makroaufzeichnung und einer Internetsuche habe ich mir ein funktionierendes Makro zusammengebastelt, das die Aufgabe erfüllt. Das Problem ist, dass ältere Dateien in verschiedenen Unterordnern abgelegt sind, das Makro bis jetzt aber nur im Hauptordner funktioniert. Da die im Netz gefundenen Lösungsansätze recht unterschiedlich sind, bin ich mir nicht sicher, wie ich den Code erweitern muss, um auch die Unterordner zu durchsuchen.
Da ich auch für statistische Auswertungen ein ähnliches Suchmuster benötige, wäre das die Grundlage für weitere Makros.
Wie muss ich folgenden Code ergänzen, um auch Unterordner zu durchsuchen?
Option Explicit
Sub Übersichtumbenennen()
' Übersichtumbenennen Makro
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "Z:\XXXX_Labor\01 Prüfberichte (ausgefüllt)\"
StrTyp = "*WPK XXXX.xl*"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
Sheets(1).Select
Sheets(1).Name = "Datenblatt WPK"
Range("G3").Select
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub
GrußKai