Gruppe
Grafik
Problem
Wie kann ich ein in einem Tabellenblatt erstelltes Diagramm in ein neues Diagrammblatt per VBA verschieben?
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