Fußzeile (Excel 2003)

03/03/2008 - 21:12 von Martin | Report spam
Hallo Spezialisten,

habe folgenden Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "&8" & Sheets("Deckblatt
(privat)").Range("Fusszeile_VBA") & "&P von &N"
End Sub

Nun möchte ich allerdings, dass die erste Seite der Arbeitsmappe keine
Fußzeile erhàlt; danach (ab Seite 2 sàmtliche). Weiterhin aktualisiert sich
die Fußzeile nicht über die gesamte Mappe (ca. 30 Blàtter) (nur durch
"Seitenansicht" der einzelnen Blàtter; der ggf. aktualisierte Text in Zelle
"Fusszeile_VBA wird nicht gedruckt).

Können sàmtliche Arbeitsblàtter autom. aktualisiert werden? (Ggf. durch
Anpassung des o.a. Codes?)

Vielen Dank im Voraus für etwaige Rückmeldungen.

Gruß - Martin
 

Lesen sie die antworten

#1 Stefan Anderl
04/03/2008 - 10:09 | Warnen spam
"Martin" wrote:

Hallo Spezialisten,

habe folgenden Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "&8" & Sheets("Deckblatt
(privat)").Range("Fusszeile_VBA") & "&P von &N"
End Sub

Nun möchte ich allerdings, dass die erste Seite der Arbeitsmappe keine
Fußzeile erhàlt; danach (ab Seite 2 sàmtliche).



Das geht meines Wissens nicht!

Weiterhin aktualisiert sich
die Fußzeile nicht über die gesamte Mappe (ca. 30 Blàtter) (nur durch
"Seitenansicht" der einzelnen Blàtter; der ggf. aktualisierte Text in Zelle
"Fusszeile_VBA wird nicht gedruckt).

Können sàmtliche Arbeitsblàtter autom. aktualisiert werden? (Ggf. durch
Anpassung des o.a. Codes?)


das geht so:


dim i as byte


for i = 1 to activeworkbook.sheets.count
activeworkbook.sheets(i).activate

Dein Code

next i

Stefan

Ähnliche fragen