Schriftformat in Kopfzeile auslesen?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Schriftformat in Kopfzeile auslesen?
von: J. Koenig
Geschrieben am: 17.07.2002 - 10:36:23

Hallo,

für den doppelseitigen Ausdruck mehrerer Tabellenblätter muss ich die Kopf- und Fußzeilen der einzelnen Blätter anpassen. Dazu habe ich untenstehendes Makro verbrochen (Ich hoffe, die Syntax ist nicht zu wüst; ich bin VBA-Anfänger). Mein Problem: Bei den geraden Seiten wird die Seitenzahl in einer anderen Schriftart und -größe dargestellt. Ich weiß, dass ich über LeftHeader, RightFooter,... ein Schriftformat zuweisen kann, aber wie komme ich an die aktuell (also im ersten Tabellenblatt) eingestellten Werte?? Beim Einlesen der Daten über LeftHeader,... werden diese Infos ja scheinbar nicht übernommen.
Weiß jemand Rat?

Viele Grüße

Jens Koenig


Sub Makro1()
' unterschiedliche Kopf- und Fußzeilen für
' doppelseitigen Ausdruck

' Wieviele Blätter enthält das Dokument?
anzahl = Sheets.Count
' Nummer der ersten Seite?
ersteseite = Worksheets(1).PageSetup.FirstPageNumber

' Auslesen der aktuellen Kopf- u. Fußzeileninhalte der ersten Tabelle
With ActiveSheet.PageSetup
lkopf = .LeftHeader
rkopf = .RightHeader
lfuss = .LeftFooter
rfuss = .RightFooter
End With

' Alle Tabellen durchlaufen und Kopf- und Fußzeilen ändern
For i = 0 To anzahl - 1
Sheets(i + 1).Select
seite = ersteseite + i
Worksheets(i + 1).PageSetup.FirstPageNumber = seite
' seite Mod 2=0 bedeutet gerade Seitenzahl
If (seite Mod 2 = 0) Then
With ActiveSheet.PageSetup
.LeftHeader = "&P " + rkopf
.RightHeader = lkopf
.LeftFooter = rfuss
.RightFooter = lfuss
End With
Else
With ActiveSheet.PageSetup
.LeftHeader = lkopf
.RightHeader = rkopf + " &P"
.LeftFooter = lfuss
.RightFooter = rfuss
End With
End If
Next i

' Alle Tabellenblätter markieren
Sheets.Select

' Seitenansicht aufrufen
ActiveWindow.SelectedSheets.PrintPreview

' Kopf- u. Fußz. der ersten Tabelle auf Ursprungswerte zurücksetzen
Sheets(1).Select
With ActiveSheet.PageSetup
.LeftHeader = lkopf
.RightHeader = rkopf
.LeftFooter = lfuss
.RightFooter = rfuss
.FirstPageNumber = ersteseite
End With

MsgBox "Fertig!"
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Schriftformat in Kopfzeile auslesen?"