Printarea in neue Mappe kopieren
15.07.2020 12:15:56
Beni
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
Danke vorab vielmals
Anzeige