Office: Seitenlayout einer Tabelle auf mehrere Tabellen kopieren

Hallo zusammen,

ich habe eine Excel-Arbeitsmappe mit ca. 20 Tabellenblättern erstellt. Jetzt möchte ich das Seitenlayout, d.h. Kopf-und Fusszeile, Papierformat, Druckbereich etc. des ersten Tabellenblatts auf alle anderen Tabellenblätter übertragen.

kann mir da jemand helfen?

1000Dank

 

Hallo!

Das müsstest du mit VBA machen.
Der Code könnte in etwa so aussehen, wenn von "Tabelle1" die mittlere Kopfzeile, die mittlere Fusszeile, der Druckbereich und das Papierformat übernommen werden sollen:

Code:

Sub FormatÜbertragen()
Dim Blatt As Worksheet, x As Worksheet
Set x = Sheets("Tabelle1")
For Each Blatt In ThisWorkbook.Worksheets
If Not Blatt Is x Then
With Blatt.PageSetup
.PrintArea = x.PageSetup.PrintArea
.CenterFooter = x.PageSetup.CenterFooter
.CenterHeader = x.PageSetup.CenterHeader
.PaperSize = x.PageSetup.PaperSize
End With
End If
Next Blatt
End Sub

 

hey schatzi,

danke für den tip. kenne mich leider gar nicht mit vba aus...
andere lösung gibt es nicht?

folgende punkte will ich übertragen:
- Kopfzeile Logo
- Fusszeile Pfad, Ersteller, Datum, Seite
- Druckbereich (erste linke Spalte)
- Seitenränder

DANKE

 

Hallo!

Kopfzeile=CenterHeader/LeftHeader/RightHeader
Fußzeile=CenterFooter/LeftFooter/RightFooter
Druckbereich=PrintArea
Seitenränder=LeftMargin/RightMargin/TopMargin/BottomMargin

Diese (oder auch noch andere) Attribute musst du vom 1. Blatt abgleichen:

.Attribut = x.PageSetup.Attribut

Probier's einfach mal aus!

 

Hey, also bin grad am probieren und kommt folgende Fehlermedlung:

"Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs"

beigefügt meine ersten teestläufe ;-)

die zu kopierende tabelle ist die 2. gibt es probleme wenn ich die tabellen benannt habe?

was muss ich für x eingaben??

DANKE

 

hier der anhang;-)

 

bild anhängen geht wohl nicht...:

Sub Formatierung()
Dim Blatt As Worksheet, x As Worksheet
Set x = Sheets("Tabelle2")
For Each Blatt In ThisWorkbook.Worksheets
If Not Blatt Is x Then
With Blatt.PageSetup
.PrintArea = x.PageSetup.PrintArea
.CenterFooter = x.PageSetup.CenterFooter
.CenterHeader = x.PageSetup.CenterHeader
.PaperSize = x.PageSetup.PaperSize
End With
End If
Next Blatt
End Sub

 

Hallo!

In dieser Zeile gibst du den Blattnamen an, aus dem du die Formate übernehmen möchtest:

Set x = Sheets("Tabelle1")

Der Blattname ist in diesem Fall der Name, der unten auf dem Tabellenreiter steht.

 

also folgende Zeile: Set x = Sheets("Tabelle1")

heißt dann bei mir:

GER
oder
Set x = GER
oder
Set x = Sheets("GER")

????

sorry wirklicher VBA-anfänger ;-)

 

Hallo!

Dann so:
Set x = Sheets("GER")

 

es tut sich nichts...????

Sub Formatierung()
Dim Blatt As Worksheet, x As Worksheet
Set x = Sheets("GER")
For Each Blatt In ThisWorkbook.Worksheets
If Not Blatt Is x Then
With Blatt.PageSetup
.PrintArea = x.PageSetup.PrintArea
.CenterFooter = x.PageSetup.CenterFooter
.CenterHeader = x.PageSetup.CenterHeader
.PaperSize = x.PageSetup.PaperSize
End With
End If
Next Blatt
End Sub

und wie kann ich noch die skalierung einbauen?
Verkleinern/vergrößern: 80%??

 

Hallo!

Die Skalierung müsste "Zoom" sein:

.Zoom = x.PageSetup.Zoom

Wenn sich nichts tut, dann befindest du dich vielleicht noch im Haltemodus.
Wähle mal im VBA-Editor
Menü Ausführen > Zurücksetzen
und dann
Menü Ausführen > Sub ausführen

Dann müsste er laufen.

 

Hallo!

wurde ausgeführt, hat aber die einstellungen nicht übernommen!

??

 

Hallo!

Teste es mal an der angehängten Datei.
Bei mir läuft's prima...