Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

278 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige