Ich will nur Werte und Formate aus den Printareas aus mehreren Sheets kopieren und damit eine neue Mappe erstellen.
Mit folgendem Makro werden die ganzen Inhalte kopiert und nicht nur die definierten Printareas:
Sub Werte_Einfuegen()
Dim WBS As Workbook
Dim ws As Worksheet
With Worksheets(Array("01_Deckblatt", "02_ER", "04_DBR", "05_Personal", "06_Franchising", " _
07_Betriebsaufwand"))
.Copy
Set WBS = ActiveWorkbook
For Each ws In WBS.Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next ws
End With
End Sub
Was muss ich ändern, damit nur die Printareas kopiert werden?Danke vorab vielmals