ich möchte beim Kopieren eines Worksheets in ein neues Workbook den definierten Druckbereich erhalten.
Mit
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
funktioniert das Kopieren, die Information zum Druckbereich geht jedoch verloren.
Wie kann man nun den Druckbereich in die neue Mappe hinüberretten?
Mit einer Variablen habe ich das auch schon versucht, bin aber gescheitert:
Dim Druckbereich
Application.Goto Reference:="Print_Area"
Druckbereich = Selection.Address
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("Druckbereich").Select
In der so definierten Variablen wird zwar eine Bereichsinformation gespeichert wie z.B. "$A$1:$F$71". Im letzten Select-Befehl wird dies dem Range-Objekt jedoch nicht übergeben. Liegt das vielleicht daran, dass man sich zu diesem Zeitpunkt bereits in einer neuen Mappe befindet? Welches ist die Lösung dieses Problems?
Danke und Gruß