Re: Kopfzeile ändern
14.02.2003 12:42:27
Marc
Hi Johannes!Also, ich habe es - wie immer wenn ich den Befehl nicht kenne - auf die ganz blöde Tour versucht:
Makro-Rekorder an und einfach mal das machen, was VBA später auch tun soll. Anschließend den VBA-Quelltext anschauen und wieder etwas schlauer sein.
Ich habe z.B. einfach mal in der Kopfzeile den linken, mittleren und rechten Text geändert und beim rechten Text noch die Seitennr. eingefügt. Hier dazu der wichtigste Abschnitt des entsprechenden Codes:
With ActiveSheet.PageSetup
.LeftHeader = "Links-Test"
.CenterHeader = "Mitte auch gut!"
.RightHeader = "Und rechts auch ganz toll! Und einmal die Seitennummer: &P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Ich hoffe, ich konnte Dir irgendwie etwas weiterhelfen.
Ciao
Marc