ich nutze den unten aufgeführten Code, um aus einer Datei mit mehreren Blättern nur bestimmte Blätter in einer neuen Excel-Datei zu speichern.
Leider verändern sich, in der durch das Makro erstellten Excel-Datei, die Farben der Diagramme. Kann mir jemand erklären woran das liegt?
Gruß
Maik
Sub Schaltfläche2_Klicken()
' BlätterSpeichern Makro
Sheets("Blatt1").Copy
neueMappe$ = ActiveWorkbook.Name
Workbooks(offeneMappe$).Activate
Sheets("Blatt2").Copy After:=Workbooks(neueMappe$).Sheets(1)
Workbooks(offeneMappe$).Activate
Sheets("Blatt3").Copy After:=Workbooks(neueMappe$).Sheets(2)
ActiveWorkbook.SaveAs Filename:="C:\Dateiname1.xlsx"
ActiveWindow.Close SaveChanges:=False
End Sub