An alle Experten!
ich brauche dringend Hilfe beim formatieren der Kopf- und Fusszeilen.
Habe per excel und VBA bereits folgendes geschafft. 1. In der Kopfzeile ab Seite 2 wird der Wert einer Zelle in dem und dem Format angezeigt.
2. Die Fußzeile ab Seite 1 zeigt "Seite x von y " an.
Mein Problem: Die Formatierung. Die wird nur ab Seite 2 übernommen. Auf der 1. Seite ist alles wie von excel voreingestellt.
Grüezi Excelhaesin
Mein Problem: Die Formatierung. Die wird nur ab Seite 2
übernommen. Auf der 1. Seite ist alles wie von excel
voreingestellt.
Was genau meinst Du denn hiermit?
Welche Excel-Version verwendest Du?
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Hallo Excelhaesin,
Beim 2003er die Abfolge:
Seitenvorschau - Seite einrichten - Kopf/Fußzeile - Benutzerdefinierte Kopf- bzw. Fußzeile für die 1. Druckseite.
Beim 2007er/2010er die Abfolge:
Ansicht - Seitenlayout für die 1.Druckseite
Doppelklick auf linken- mittleren - rechten Bereich der Kopf- bzw. der Fußzeile.
Jede Einstellung kann getrennt formatiert werden.
Alle weiteren Einstellungen für 2. bis xte Seite über Seite einrichten etc.
Ich hoffe, dies hilft dir ein wenig.
Hilfreich wäre die Excel-Version und eine exaktere Beschreibung…
mfg
Softoldi
Hallo Excelhaesin,
leider verfüge ich gerade nicht über die Excelversion, bei der getrennte Kopf- und Fußzeilen für die erste Seite möglich sind.
Aber grundsätzlich ist zu beachten: Formatierungen müssen in dem Überschriften-Text mit angegeben werden.
Am Besten mal aufzeichnen und dann den Code entsprechend anpassen.
Gruß
Natator
meine Version: 2007
Danke an alle! Habe nicht gewußt, das man die Formatierung in die Kopf- und Fusszeile eingeben muss.
nun scheint es zu funktionieren.
Hallo Excelhaesin,
Kopf-/Fusszeile für 1. Seite anders funktioniert erst ab Excel 2007. In älteren Versionen geht dies nicht, das sollte man ggf. beachten, wenn die Datei auch mit älteren Excelversionne geöffnet/bearbeitet werden muß.
Nachfolgend ein Beispiel für das Einfügen von Kopf-/Fußtexten inkl. Formatierungen per Makro. Bei den Code-Zeichen für bestimmte Feldinhalte (z.B. Seite, Anzahl-Seiten, Dateiname etc.) sind diese für die 1.Seite leider anders als für die „normalen“ Kopf- und Fußzeilen. Hier hat sich bei Microsoft im VBA-Compiler scheinbar irgendetwas uraltes wieder eingeschlichen bei der Anpassung von internationalen Excel-Versionen. Soweit ich mich erinnern kann gab es dieses Problem vor Excel97 unter VBA auch.
Gruß
Franz
'Aufgezeichnet / Erstellt unter Excel 2007
Sub Kopf\_Fusszeile\_Seite1anders()
'
' Kopf\_Fusszeile\_Seite1anders Makro
'
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Calibri,Standard""&16Stand: " & Format(ActiveSheet.Range("F1"), "YYYY-MM-DD")
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&""Calibri,Standard""&10Seite &:stuck\_out\_tongue\_winking\_eye: von &N"
.RightFooter = ""
.LeftMargin = Application.CentimetersToPoints(2)
.RightMargin = Application.CentimetersToPoints(1)
.TopMargin = Application.CentimetersToPoints(1.5)
.BottomMargin = Application.CentimetersToPoints(1.5)
.HeaderMargin = Application.CentimetersToPoints(0.8)
.FooterMargin = Application.CentimetersToPoints(0.8)
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.Zoom = 100
If Val(Left(Application.Version, 2)) \>= 12 Then 'Prüfung der Excel-Version
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = "KT-links-Seite1"
.FirstPage.CenterHeader.Text = "&""Calibri,Fett""&20KT-Seite1-Calibri 20-fett"
.FirstPage.RightHeader.Text = "KT-rechts-Seite1"
.FirstPage.LeftFooter.Text = "FTL&""Calibri,Standard""&8-calibri8-&14Calibri14"
'Die Codebuchstaben für Seite und Seiten-Anzahl sind für die 1. Seite \_
scheinbar abhängig von der Sprachversion der Excelanwendung.
'Jedenfalls wird bei mir (Excel-deutsch) mit &:stuck\_out\_tongue\_winking\_eye: von &N Verzeichnis und Dateiname angezeigt
'VBA-Code Buchstaben in Kopf-/Fusstext - 1. Seite
'DE - US - Beschreibung
'&:stuck\_out\_tongue\_winking\_eye: - &Z - Pfad/Verzeichnis
'&N - &F - Name der Datei
'&B - &A - Name Blatt/Register
'&S - &:stuck\_out\_tongue\_winking\_eye: - Seite
'&A - &N - Anzahl Seiten
'&D - &D - Druck-Datum
'&U - &T - Druck-Uhrzeit
'&T - &U - Umschalter unterstreichen
'&H - &S - Umschalter durchgestrichen
'&Y - &Y - Umschalter tiefgestellt
'&X - &X - Umschalter hochgestellt
Select Case Application.International(xlCountryCode) 'Sprachversion der Excel-Anwendung
Case Is = 49 'Deutsch
.FirstPage.CenterFooter.Text = "&""Calibri,Standard""&10Seite &S von &A"
Case 1 'USA
.FirstPage.CenterFooter.Text = "&""Calibri,Standard""&10Seite &:stuck\_out\_tongue\_winking\_eye: von &N"
Case Else
'auf gut Glück
.FirstPage.CenterFooter.Text = "&""Calibri,Standard""&10Seite &:stuck\_out\_tongue\_winking\_eye: von &N"
End Select
.FirstPage.RightFooter.Text = "FTR-Seite 1"
End If
End With
End Sub
Hallo Excelhaesin,
da kann ich leider nicht weiter helfen. Ein solches Problem hatt ich noch nicht.
Gruß Hugo
hallo excelhaesin,
da ich excel 2003 habe, und man erst seit 2007 die erste seite anders gestalten kann, kann ich keine lösung ausprobieren.
so wie ich dich verstanden habe, mußt du 3x formatieren:
- kopfzeile ab seite 2
- fußzeile auf seite 1
- fußzeile ab seite 2
viel erfolg!
Hallo,
das musst Du Excel natürlich auch mitteilen.
Schreibe in Dein Makro die Formatierung und weise
dem zugewiesnen Wert die Formatierung zu.
'Der Variable x wird der Wert aus der Zelle zugewiesen
x = Range(„A2“).Value
With ActiveSheet.PageSetup
.PrintTitleRows = „“
.PrintTitleColumns = „“
End With
ActiveSheet.PageSetup.PrintArea = „“
With ActiveSheet.PageSetup
.LeftHeader = „“
.CenterHeader = „&“„Frutiger 45 Light,Fett“"&36" & x
.RightHeader = „“
.LeftFooter = „“
.CenterFooter = „Seite &:stuck_out_tongue_winking_eye: von &N“
u.s.w.
Gruß,
Jochen