Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
168to172
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
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fußzeile

Fußzeile
18.10.2002 19: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
Anzeige
Re: Fußzeile
18.10.2002 22: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige