Chart (Diagramm) in anderes Blatt kopier
06.07.2020 14:34:01
Günter
ich möchte ein Diagramm in ein anderes Tabellenblatt kopieren.
Vorher das alte Diagramm löschen.
Das funktioniert so weit auch.
Allerdings wird der Name des Diagramms im neuen Tabellenblatt hochgezählt (Diagramm 1, Diagramm 2,....)
Wie kann ich im Ziel-Tabellenblatt das Diagramm löschen, so dass das ich immer "Diagramm 1" bekomme?
Sub chart_copy()
' chart_copy Makro
Sheets("Management_Summary").Select
If Worksheets("Management_Summary").ChartObjects.Count > 0 Then
Sheets("Management_Summary").ChartObjects.Delete
End If
Sheets("Tabelle2").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Copy
Sheets("Management_Summary").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Günter