Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pagesetup Problem

Forumthread: Pagesetup Problem

Pagesetup Problem
Matthias
Hallo an Alle,
benötige ein Makro welches nur einmalig ausgeführt wird so das Alle Sheets mit Pagesetup abgearbeitet sind.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
.PageSetup.RightHeader = "&20" & Range("E1") & " " & Range("A1").PageSetup.LeftHeader = " _
&20Anwesenheit"
.PageSetup.CenterHeader = "&20Abt.4162"
.PageSetup.CenterFooter = "&20" & Range("E1") & " " & Range("A1")
End Sub
bei diesen Makro bekomme ich die Fehlermeldung =
unzulässiger oder nicht ausreichend definierter Verweis , bleibt am "FETT" gekennzeichnetetn Bereich stehen.
Was mache ich falsch?
Wichtig ist auch das z.B.. wenn Sheet 1 und Sheet 7 markiert sind , dieses Setup funktioniert
Gruß Matthias
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Pagesetup Problem
30.01.2012 16:32:18
Rudi
Hallo,
meinst du so? 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.PageSetup.RightHeader = "&20" & .Range("E1") & " " & .Range("A1")
.PageSetup.LeftHeader = "&16Anwesenheit "
.PageSetup.CenterHeader = "&20Abt.4162"
.PageSetup.CenterFooter = "&20" & .Range("E1") & " " & .Range("A1")
End With
Next
End Sub

Gruß
Rudi
Anzeige
Danke Rudi.,....
30.01.2012 19:44:10
Matthias
leider funzt das gar nicht...ist auch nicht mehr in meinem Sinn,
...habe das mit den Zellen rausgenommen.
Danke nochmals für deinen Ansatz
Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige