VBA Copy
19.07.2022 07:45:02
Paul
ich habe dank des Forums bereits ein Makro, welches für jede aktives Worksheet eine eigene Datei erstellt:
Sub save()
Dim ws As Worksheet
Dim wb As Workbook
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:=wb.Path & "\" & ws.Name, FileFormat:=xlOpenXMLStrictWorkbook
ActiveWorkbook.Close
Next
End Sub
Für antworten bin ich sehr dankbar.
Liebe Grüße
Anzeige