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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige