Hallo zusammen,
ich benutze z.Zt. folgenden Code um das Aktive Sheet in eine Neue Mappe zu kopieren.
(Nur ein Auszug des Codes)
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und dem Namen in B4
Set wb = ActiveWorkbook
wb.SaveAs SavePath & "\" & ActiveSheet.Name & "_Case_" & ActiveSheet.Range("B4") & "_vom_" & Date & ".xls"
Jetzt benötige ich aber zusätzlich zu dem Aktiven noch ein bis zwei weitere Sheets die Kopiert werden sollen, diese Sheets sind immer die selben. Alles in die gleiche neue Datei.
Noch mal vereinfacht: Aus Quell Mappe Copy ActiveSheet+Sheet1+Sheet2 füge alle drei in eine neue Mappe ein. Das ActiveSheet ans ende.
Da gibt es doch bestimmt ne einfache Funktion für...
Vielen Dank schon mal im Voraus!