title image


Smiley Re: Kopfzeilen für mehrer Dokumente gleichzeitig ändern - Excel 2003
Hallo,



mit diesem Makro änderst du die mittlere Kopfzeile in allen Arbeitsblättern aller Excel-Mappen im angegebenen Verzeichnis auf den gewünschten Text:







Sub alle_Dateien_Verzeichnis() '

    strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen

    strExt = "*.xls"     'Dateiextension ggf. anpassen

    Dim strFile As String

    Dim ws As Worksheet

    Text = "Neue Kopfzeile am 10.05.2006" 'anpassen

    If strPath = "" Then

        Exit Sub

    Else

        strFile = Dir(strPath & strExt)

        Do While Len(strFile) > 0

            Workbooks.Open Filename:=strPath & strFile

            For Each ws In ActiveWorkbook.Worksheets

                ws.PageSetup.CenterHeader = Text

            Next

            Workbooks(strFile).Close

            strFile = Dir() ' nächste Dtei

        Loop

    End If

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





Sollte das nicht ganz passen, melde dich einfach noch mal!
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: