www.Russ-Jesteburg.de > Excel > VBA > Datei

Alle Dateien eines Verzeichnisses bearbeiten:

' Für jedes einzelne Tabellenblatt in jeder einzelnen Datei
' manuell die gleiche Änderung vornehmen??? Lieber automatisch
' machen ;-)
Sub Alle_Dateien_eines_Verzeichnisses_bearbeiten()
    Dim Dateiname As String
    Dim Verzeichnis As String
    Dim WS As Worksheet
    Verzeichnis = "C:\Eigene Dateien\"
    Dateiname = Dir$(Verzeichnis & "*.xls")
    Do While Dateiname <> ""
        Workbooks.Open (Verzeichnis & Dateiname)
        For Each WS In Workbooks(Dateiname).Worksheets
            ' hier kommt das Makro rein ...
        Next WS
        Workbooks(Dateiname).Close True
        Dateiname = Dir$()
    Loop
End Sub

Dieser Tipp ist vom 21.09.2005