Kopfzeilen duplizieren

Forumthread: Kopfzeilen duplizieren

12.12.2003 16:29:08

Cornelis

Hallo Forum,

Ich habe eine Exceldatei mit unzähligen Arbeitsmappen, die alle die gleiche Fuss- und Kopfzeilenbezeichnung haben. Ist es möglich diese nur in einem Arbeitsblatt zu fixieren und mit den anderen Arbeitsblättern zu verknüpfen? Es sollte für einen späteren Benutzer auch möglich sein die Kopf- und Fusszeile zu ändern, ohne dies in allen 30 Arbeitsblättern machen zu müssen.

Besten Dank für Eure Hilfe!
Grüsse, Cornelis

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopfzeilen duplizieren

12.12.2003 17:29:26

Willie

AW: Kopfzeilen duplizieren

12.12.2003 17:29:26

Willie

So sollte es gehen... Du kannt ja alle Ändern

Gruß

Willie


Sub Makro1()
For i = 1 To Sheets.Count
Sheets(i).Activate
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "Linker Abschnitt"
.CenterHeader = "&Z&F" & Chr(10) & "& ""mitte"""
.RightHeader = "Rechte Abschnitt  "
.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
.PrintErrors = xlPrintErrorsDisplayed
End With
Next
End Sub

Forumthread: Kopfzeilen duplizieren

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread