Grafik in der Kopf- und Fußzeile

[cysu11]

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

[Fennek]

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

[cysu11]

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

[Fennek]

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

[cysu11]

Hallo Fennek,


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

LG
Alexandra