Ordner + Unterordner durchsuchen????
19.07.2003 08:09:28
loescherh
Bitte könnt Ihr mir sagen, was an diesem Code nicht passt.
Es sollten alle Ordner und Unterordner im Ordner1 nach .xls Dateien durchsucht werden, und bei jedem Dokument die Kopfzeile in Jahr 2004 ausgebessert werden.
Er findet zwar alle Dokumente, aber die Kopfzeile bessert er nicht aus.
Sub Dateien_suchen()
Dim index As Long
With Application.FileSearch
.LookIn = "C:\Arbeit\Ordner1\"
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True
If .Execute > 0 Then
For index = 1 To .FoundFiles.Count
If ActiveSheet.PageSetup.CenterHeader = "" Then
ActiveSheet.PageSetup.CenterHeader = "Jahr 2004"
ElseIf ActiveSheet.PageSetup.CenterHeader = "Jahr 2002" Then
ActiveSheet.PageSetup.CenterHeader = "Jahr 2004"
End If
MsgBox .FoundFiles(index)
Next
End If
End With
Application.ScreenUpdating = True
End Sub
Danke schon mal für Eure Hilfe.
Chief