Ich habe folgendes Problem und hoffe es kann mir jemand weiterhelfen. Ich möchte den Firmennamen, der geändert hat in allen *.xls Dateien per Makro anpassen. Im Stammverzeichniss und allen darunterliegenden Verzeichnissen (Suchen Ersetzten). Nun habe ich ein Problem dies zu bewerkstelligen. Mit dem folgendem Code kann ich die xls anpassen, aber eben nur in dem einem Verzeichnis. Wie muss ich hier den Code erweitern, dass er auch die Unterverzeichnisse nimmt?
Sub Dateien() strPath = "e:\ims" 'Pfad des Verzeichnisses ggf. anpassen strExt = "*.xls" 'Dateiextension ggf. anpassen Dim strFile As String If strPath = "" Then Exit Sub Else strFile = Dir(strPath & strExt) Do While Len(strFile) > 0 Workbooks.Open Filename:=strPath & strFile Cells.Select Selection.Replace What:="Suche nach...", Replacement:="ersetzte mit...", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Range("A1").Select Workbooks(strFile).Close strFile = Dir() ' nächste Datei Loop End If End Sub
Danke für eure Hilfe...
Mike