Office: Seitenlayout auf anderes Arbeitsblatt übertragen

Hallo,

gibt es eine einfach Möglichkeit ein Seitenlayout auf ein anderes Blatt zu kopieren.

Ich könnte natürlich mittels Makro aufzeichnen, das aktuelle Layout auslesen und dann das Makro in dem anderen Blatt ablaufen lassen, aber ich hätte gerne immer das aktuelle Layout übernommen, falls man was am Ursprungsblatt ändert.

Hintergrund ist, dass ich beim Filtern das Ergebnis automatisch in neues Blatt kopieren lasse und ich dann dementsprechend auch das Layouot anpassen muss.

Danke im Voraus

Gruß
Christian

 

Hallo Christian,

das Arbeitsblatt, dessen Inhalte und Formatierungen Du nochmals haben möchtest, kopieren innerhalb der Arbeitsmappe. Dann ist in der Kopie alles enthalten, was auch im Originalblatt enthalten ist.

 

Gibt es denn dann eine Möglichkeit, alles außer Formatieung zu löschen?

Das Ursprungsblatt enthält Steuerelement und Daten, die ich eben nicht behalten möchte, sondern nur ein Teil der Daten, die gefiltert wurden.

 

Hallo!

Code:

Sub xy()
Sheets("Tabelle1").Cells.Copy
Sheets("Tabelle2").Cells.PasteSpecial Paste:=xlFormats
End Sub

 

Danke für die Hilfe