Clever-Excel-Forum

Hallo zusammen,

hoffe Euch allen geht es gut! :)

Ich benötige mal wieder Eure Unterstützung für das folgende Problem.
Wir haben ca. 200 Exceldateien/Auftragsformulare die jeweils im der Kopf- und Fußzeile ein Bild haben, Kopfzeile = Firmenlogo, Fußzeile = Firmendaten! Nun haben Sie das Logo und die Firmendaten geändert und wir müssen nun diese in den Exceldatei austauschen nur ist es natürlich sehr aufwändig bei ca. 200 Dateien. Gibt es einen Möglichkeit diese für alle Dateien im gleichen Verzeichnis die Bilder in der Kopf- und Fußzeile auf einmal zu ändern?

Vielen Dank im Voraus für Eure Unterstützung
LG
Alexandra

Hallo,

das Thema wurde vor einigen Wochen in einem der Foren besprochen, aber ich fand keine Notizen.

Das Netz sagte:

Code:
Sub InsertHeaderFooter()

Dim wsAs Worksheet

Application.ScreenUpdating = False

 Each wsInThisWorkbook.Worksheets

                   With ws.PageSetup

                                       .LeftHeader = “Company Name:”

                                       .CenterHeader = “Page &P of &N”

                                       .RightHeader = “Printed &D &T”

                                       .LeftFooter = “Path : “ &ActiveWorkbook.Path

                                       .CenterFooter = “Workbook Name: & F”

                                       .RightFooter = “Sheet: &A”

                  End With

Next ws

Set ws = Nothing

Application.ScreenUpdating = True

End Sub

##################

ActiveSheet.PageSetup.CenterFooterPicture.Filename = _

    "C:\Users\Public\Pictures\Sample Pictures\Desert Landscape.jpg"

(ungeprüft)

mfg

Hallo Fennek,

danke für den Code, leider habe ich ihn nicht wirklich verstanden! :(

Habe aber mit aus dem Internet ein Codechen gebaut, der in einer der Dateien funktioniert!

Wie kann ich aber alle Dateien in "Thisworkbookpatz", also alle Dateine eines Ordners "Aufträge" alle gleichzeitig, oder automatisch hintereinander diesen Code durchlaufen lassen?

Danke im Voraus
LG
Alexandra

Aus dem Gedächtnis, also ungeprüft:

Code:
sub Alle_WB()

dim WB as Workbook

Pfad = "c:\temp\" '<<< anpassen

f = dir(Pfad & "*.xls?")

    set WB = workbooks.Open(Pfad & f)

    with WB

    for s = 1 to .Sheets.Count

'hier der code für den Pagesetup: .sheets(s).pagesetup ...

    next s

    .save

    .close()

    end with

f = dir

loop

end sub

mfg

Hallo Fennek,

vielen lieben Dank, damit kann ich was anfangen! :)

LG
Alexandra

cysu11

Fennek

cysu11

Fennek

cysu11