Microsoft Excel

Herbers Excel/VBA-Archiv

Pagesetup Problem | Herbers Excel-Forum


Betrifft: Pagesetup Problem von: Matthias
Geschrieben am: 30.01.2012 16:20:32

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

  

Betrifft: AW: Pagesetup Problem von: Rudi Maintaire
Geschrieben am: 30.01.2012 16:32:18

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


  

Betrifft: Danke Rudi.,.... von: Matthias
Geschrieben am: 30.01.2012 19:44:10

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


Beiträge aus den Excel-Beispielen zum Thema "Pagesetup Problem"