Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro in allen Tabellen einer Datei ausführen.

Makro in allen Tabellen einer Datei ausführen.
28.01.2005 11:03:32
Alexander
Hallo liebe Spezialisten!
Ich habe folgendes Problem:
Wie muß ich mein Makro verändern, damit nicht nur die Kopfzeile der aktuellen Tabelle sondern alle Kopfzeilen der geöffneten Datei geändert werden?

Sub Makro3()
' Tastenkombination: Strg+k
ActiveSheet.PageSetup.RightHeaderPicture.Filename = _
"F:\...\Logo Adresse 4cm breit.png"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&G"
End With
End Sub

Vielen Dank im Vorraus
Alexander
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro in allen Tabellen einer Datei ausführen.
28.01.2005 11:33:25
Ralf
Hallo Alexander,
probier das mal:
Sub kopf_auf_all()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.PageSetup.RightHeaderPicture.Filename = _
"F:\...\Logo Adresse 4cm breit.png"
With Sh.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&G"
End With
Next Sh
End Sub
Wenn du den Code in "DieseArbeitsmappe" so hineinkopierst, dann wird die Kopfzeile erst beim Ausdruck gesetzt:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.PageSetup.RightHeaderPicture.Filename = _
"F:\...\Logo Adresse 4cm breit.png"
With Sh.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&G"
End With
Next Sh
End Sub

Gruß
Ralf
Anzeige
AW: Makro in allen Tabellen einer Datei ausführen.
Alexander
Vielen Dank.
Hat super geklappt.
Alexander
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige