Fußzeile

Forumthread: Fußzeile
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Fußzeile

Fußzeile

18.10.2002 21:52:00

Peter

Hallo an alle,

habe vor einigen Tagen diesen Makro, zu Ausdrucken von 5 Blättern, im Forum bekommen
der auch einwandfrei klappt.

Sub Blätter_drucken()
Sheets(Array("Blatt 1 - 1.2", "Blatt 2 und 3", "Blatt 4", "Blatt 5 und 6", "Blatt 7 - 15")).PrintOut
End Sub

Nun brauche ich aber noch die Funktion „CenterFooter“ dazu.

Auf allen 5 Blättern soll in der Fußzeile der Wert aus der Zelle A6 von Blatt 1 – 1.2
und der jeweilige Blattname der einzelnen Blätter stehen.

Im voraus Dank an alle

Gruß Peter

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Fußzeile

19.10.2002 00:10:52

Werner Theis

Re: Fußzeile

19.10.2002 00:10:52

Werner Theis

Hallo Peter,

so ginge es z.B:

Sub Tab_Anwahl()
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Kopfzeile
Sheets("Tabelle2").Select
Kopfzeile
Sheets("Tabelle3").Select
Kopfzeile
End Sub

Sub Kopfzeile()
With ActiveSheet.PageSetup
.RightHeader = [A6]
.CenterFooter = ActiveSheet.Name
End With
End Sub

Gruß
Werner

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