Gibt es einen einfachen Code der die Kopfzeile und Fusszeile für ein neu erstelltes Arbeitsblatt (Tabelle4) von Tabelle1 übernimmt (mit Grafik)?
Danke!
Sub Format()
Dim Blatt As Worksheet, x As Worksheet
Set WS1 = Sheets("Tabelle1")
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name = "Tabelle4" Then
With Blatt.PageSetup
.PrintArea = WS1.PageSetup.PrintArea
.CenterFooter = WS1.PageSetup.CenterFooter
.CenterHeader = WS1.PageSetup.CenterHeader
.PaperSize = WS1.PageSetup.PaperSize
End With
End If
Next Blatt
End Sub