Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
672to676
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

benutzerdefinierte Kopf-/ Fusszeile

benutzerdefinierte Kopf-/ Fusszeile
28.09.2005 11:12:58
Peter
Hallo Excel-Experten,
ich habe eine Excel-Datei mit ca. 80 Tabellen in der vor dem Drucken in jede Tabelle die Kopf-/Fuszeile mit VBA gefüllt wird. Leider dauert das je nach Rechner bis zu 120sec.
Gibt es denn die Möglichkeit die Kopfzeile mit einer Variablen (so wie etwa die Seitenzahlen "&[Seite]") aus einer Tabelle zu befüllen, damit man nicht immmer wieder aufs neue die Kopf-/Fusszeile schreiben muß?
Vielen Dank,
herzliche Grüße
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
wie schaut der code aus? ot.
29.09.2005 00:50:39
th.heinrich
AW: wie schaut der code aus? ot.
29.09.2005 14:30:53
Peter
der Code zum befüllen der Kopf-/Fusszeile sieht folgendermassen aus:

Sub Kopfzeile_füllen()
Dim sh As Object
For Each sh In Sheets
With sh.PageSetup
.LeftHeader = "TEXT: " & [Tabelle1!F12] & Chr(10) & _
"Bewerter: " & [Tabelle1!F16]
.CenterHeader = "Projektnummer: " & [Tabelle1!F8] & Chr(10) & _
"Projekt: " & [Tabelle1!F6]
.RightHeader = "Version: " & [zs!E9]
.LeftFooter = "TEXT, " & Chr(10) & "Januar 2004" & Chr(10) & "TEXT"
.CenterFooter = "&F," & Chr(10) & "Seite &P von &N"
.RightFooter = "&D"
End With
Next
End Sub

Anzeige
AW: wie schaut der code aus? ot.
29.09.2005 14:31:08
Peter
der Code zum befüllen der Kopf-/Fusszeile sieht folgendermassen aus:

Sub Kopfzeile_füllen()
Dim sh As Object
For Each sh In Sheets
With sh.PageSetup
.LeftHeader = "TEXT: " & [Tabelle1!F12] & Chr(10) & _
"Bewerter: " & [Tabelle1!F16]
.CenterHeader = "Projektnummer: " & [Tabelle1!F8] & Chr(10) & _
"Projekt: " & [Tabelle1!F6]
.RightHeader = "Version: " & [zs!E9]
.LeftFooter = "TEXT, " & Chr(10) & "Januar 2004" & Chr(10) & "TEXT"
.CenterFooter = "&F," & Chr(10) & "Seite &P von &N"
.RightFooter = "&D"
End With
Next
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige