Blatt kopieren und Seitenlayout beibehalten?
08.04.2015 09:57:36
matthias
ich kann mittels des Cods
Sub Send_Blatt_kopieren()
Dim shZiel As Worksheet
Dim shQuelle As Worksheet
Application.ScreenUpdating = False
Set shQuelle = ActiveSheet
Workbooks.Add
Set shZiel = ActiveSheet
shZiel.Name = ActiveSheet.Name
shQuelle.Cells.Copy
shZiel.Cells(1, 1).PasteSpecial xlPasteValues
shZiel.Cells(1, 1).PasteSpecial xlPasteFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False ' Zwischenspeicher löschen
Application.DisplayAlerts = False ' keine Abfrage ob Tabelle gelöscht werden soll
Application.ScreenUpdating = True
End Sub
Leider gehen immer die Seitenlayouteinstellungen verloren. (Drucktitel, etc)
Beim nachfolgenden Code werden die Seiteneinstellungen mit übernommen.
Sub Copy()
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Gibt es eine Möglickeit den ersten Code mit dem zweiten Code zu ergänzen, sodass auch die Seitenlayouts mit übernommen werden?
Gruß