ich habe einen Code, welcher den Druckbereich eines Blattes in eine neue Mappe speichern soll.
Dieser funktioniert auch recht gut.
Frage 1: wie muss ich den code ändern, damit er auch die Zeilenhöhe und Spaltenbreite mit kopiert?
Frage 2: wie muss ich den Speicherort angeben damit die neue Mappe nicht auf dem Desktop gespeichert wird sondern z.B. unter D:\Excel\gespeicherte Mappen?
Hier der vorhandene Code:
Sub Druckbereichspeichern()
Dim wb As Workbook, ws As Worksheet, NewName as String, rBereich As String
Set wb = ActiveWorkbook
Set ws = ActiveSheet
If ActiveSheet.PageSetup.PrintArea = "" Then MsgBox "Kein Druckbereich festgelegt!" & Chr (10) & _
"Vorgang abgebrochen.": Exit Sub
rBereich = ActiveSheet.PageSetup.PrintArea
NewName = Range ("A13") .Value
Application.ScreenUpdating = False
Application.Workbooks.Add
wb.Worksheets (ws.Index) .Range (rBereich) .Copy
Range ("A1") .PasteSpecial
Application.CutCopyMode = False
Range ("A1") .Select
With Workbook
.SaveAS wb.Path & "\" & NewName, wb.FileFormat
.Close
End With
wb.Activate
Application.ScreenUpdating = True
End Sub
Vielen Dank schon malGruß Micha