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!
|