Kopf und Fußzeile nur in bestimmte

Hallo,
ich habe eine Datei mit 15 Blättern. Davon haben 3 identische Kopf- und Fußzeilen (Grafik).
Bisher hab ich per Mekro diese gelöscht, wenn diese nicht benötig wurden (Papierausdruck z.B.). Leider ist dann beim erneuten drucken alles weg und ich kann die Grafiken nur noch per Hand einfügen.
Im Internet gibt es viele Makros zum Grafik einfügen, leider jedoch nur für das aktive Blatt bzw. gleich für alle Blätter.
Ich benötige aber Bild1.jpg in der Kopfzeile rechts (hab dies schon mal angepasst) UND Bild2.jpg in der Fußzeile mitte, und nur in den Blättern "ich, "du" und "er".
Leider bin ich zum Wunschergebnisanpassen zu doof...vielleicht könnte mir da jemand behilflich sein?

Sub KopfFussZeileErzeugen()
'>>> Bild für rechte Kopfzeile einlesen
ActiveSheet.PageSetup.RightHeaderPicture.Filename = _
"C:\Bild1.jpg"
'>>> Seite einrichten
With ActiveSheet.PageSetup
'Bild in rechte Kopfzeile
.LeftHeader = ""
.CenterHeader = "mittlere Kopfzeile"
.RightHeader = "&G"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
'weitere Einstellungen möglich ...
End With
End Sub

Mit dankbaren Grüßen
René

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet Dim BildKopf As String, BildFuss As String BildKopf = "C:\Bild1.jpg" 'anpassen BildFuss = "C:\Bild2.jpg" 'anpassen For Each Ws In Wb.Worksheets With Ws Select Case .Name Case Is = "Ich", "Du", "Er" .PageSetup.RightHeaderPicture.Filename = BildKopf .PageSetup.RightHeader = "&G" .PageSetup.CenterFooterPicture.Filename = BildFuss .PageSetup.CenterFooter = "&G" End Select End With Next Ws End Sub

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet Dim BildKopf As String, BildFuss As String BildKopf = "C:\Bild1.jpg" 'anpassen BildFuss = "C:\Bild2.jpg" 'anpassen For Each Ws In Wb.Worksheets With Ws Select Case .Name Case Is = "Ich", "Du", "Er" With .PageSetup .RightHeaderPicture.Filename = BildKopf .RightHeader = "&G" .RightHeaderPicture.Height = 20 .RightHeaderPicture.Width = 40 .CenterFooterPicture.Filename = BildFuss .CenterFooter = "&G" .CenterFooterPicture.Height = 20 .CenterFooterPicture.Width = 40 End Select End With Next Ws End Sub

Beliebteste Forumthreads (12 Monate)

Kopf und Fußzeile nur in bestimmte

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopf und Fußzeile nur in bestimmte

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread