Gruppe
Grafik
Bereich
Diagramm
Thema
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen
Problem
Wie kann ich ein in einem Tabellenblatt erstelltes Diagramm in ein neues Diagrammblatt per VBA verschieben?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Uebertragen()
Dim cht As Chart
Range("A1:C1").Select
Set cht = Charts.Add(before:=Sheets(1))
With Worksheets(2).ChartObjects(1).Activate
With ActiveChart.ChartArea
.Select
.Copy
End With
End With
cht.Paste
Worksheets("Tabelle2").ChartObjects(1).Delete
End Sub