Sub
Diagramm4()
Sheets(
"Zusammenfassung"
).
Select
Sheets(
"Tabellen-Darstellung"
).Visible =
True
ActiveWindow.SmallScroll Down:=57
ActiveSheet.ChartObjects(
"Diagramm 4"
).Activate <---
ActiveSheet.ChartObjects(
"Diagramm 4"
).Activate
ActiveChart.ChartArea.Copy
Windows(
"Recovery Report.xlsx"
).Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Pictures.Paste.
Select
Windows(
"Recovery_Sheet_MN_v1.3_nicht validiert_06_Okt_2015.xlsm"
).Activate
Sheets(
"Tabellen-Darstellung"
).
Select
ActiveWindow.SelectedSheets.Visible =
False
Sheets(
"Zusammenfassung"
).
Select
End
Sub