Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige