Hallo zusammen,

ich habe folgendes Problem: Ich habe eine große Rechentabelle angelegt, aus der ich mir automatisch Diagramme erstellen lasse. Nun will ich mir die Diagramme nicht sofort anzeigen lassen, sondern sie in ein anderes geöffnetes Excel-Sheet "exportieren" lassen.

Sub Diagramm5()
'
' Diagramm5 Makro
'

'
    Sheets("Tabellen").Select
    ActiveWindow.SmallScroll Down:=27
    ActiveSheet.ChartObjects("Diagramm 5").Activate
    ActiveChart.ChartArea.Copy
    Windows("Recovery Report.xlsx").Activate
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Pictures.Paste.Select
    Windows("Sheet_MN_v1.3_nicht validiert_06_Okt_2015.xlsm").Activate
    Sheets("Zusammenfassung").Select
End Sub

So hat das wunderbar funktioniert. Das Problem kam auf, als ich den Tabellenreiter auf "Tabellen-Darstellung" umbenannt habe und das Tabellenblatt ausgeblendet habe.

nun habe ich schon 3,4 Möglichkeiten im Internet gefunden, z.B.

    Sheets("Tabellen-Darstellung").Visible = True
    Sheets.ChartObjects("Diagramm 4").Activate
    ActiveSheet.ChartObjects("Diagramm 4").Activate

ODER

    SelectedSheets("Tabellen-Darstellung").Visible = 0 - xlSheetHidden
    ActiveSheet.ChartObjects("Diagramm 2").Activate
    ActiveSheet.ChartObjects("Diagramm 2").Activate

ODER

Sub Diagramm1()
'
' Diagramm1 Makro
'

'
    With Worksheets("Tabellen-Darstellung")
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.ChartArea.Copy
    Windows("Recovery Report.xlsx").Activate
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Pictures.Paste.Select
    Windows("Sheet_MN_v1.3_nicht validiert_06_Okt_2015.xlsm").Activate
    End With
Sheets("Zusammenfassung").Select
End Sub

Jedoch funktioniert keiner im Ansatz.

Jemand eine Idee?

Vielen Dank im Voraus!