Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Grafik in der Kopf- und Fußzeile
#1
Hallo zusammen,

hoffe Euch allen geht es gut!Smile

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
Antwortento top
#2
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
Antwortento top
#3
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
Antwortento top
#4
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
Antwortento top
#5
Hallo Fennek,


vielen lieben Dank, damit kann ich was anfangen!Smile

LG
Alexandra
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste