Einstellungen auf verschiedene Blätter übertragen
24.10.2008 11:11:00
basch
mit folgendem Code kann ich prima Einstellungen auf andere Tabellenblätter übertragen:
Sub kopfundFußzeileübertragena()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
With ws.PageSetup
' Stellt die Kopf und Fußzeile gleich ein
.LeftHeader = ActiveSheet.PageSetup.LeftHeader
.RightHeader = ActiveSheet.PageSetup.RightHeader
.CenterHeader = ActiveSheet.PageSetup.CenterHeader
.LeftFooter = ActiveSheet.PageSetup.LeftFooter
.CenterFooter = ActiveSheet.PageSetup.CenterFooter
.RightFooter = ActiveSheet.PageSetup.RightFooter
' Stellt die Seitenränder gleich ein
.RightMargin = ActiveSheet.PageSetup.RightMargin
.TopMargin = ActiveSheet.PageSetup.TopMargin
.BottomMargin = ActiveSheet.PageSetup.BottomMargin
.HeaderMargin = ActiveSheet.PageSetup.HeaderMargin
.FooterMargin = ActiveSheet.PageSetup.FooterMargin
' Stellt die Hochformat oder Querformat ein
' .Orientation = ActiveSheet.PageSetup.Orientation
End With
Next
End Sub
Das Makro funktioniert nur auf die aktiven Tabellenblätter einer geöffnete Datei. Da ich häufig gleiche Einstellungen über mehrere Dateien und ausgewählten Tabellenblätter übertragen möchte, muß ich immer erst ein richtig eingestellte Tabellenblatt in die andere Datei kopieren und dann das Makro straten.
Kann einer mein vorhandenes Makro modifizieren, so dass es auch in aktiven Tabellenblätter anderer Dateien Einstellungen überträgt? Würde mich über Hilfe sehr freuen.
Gruß, Bastian