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
Ich würde nun gerne noch zusätzlich in jedes neu erstelle Workbook, die Tabelle3 (Erläuterungen) als Worksheet hinzufügen, sodass jede neue Datei aus zwei Worksheets besteht. Erste Worksheet(einzigartig) + Zweite(worksheet) Erläuterung.Für antworten bin ich sehr dankbar.
Liebe Grüße