nachdem ich ein Diagramm erstellt habe, will ich bei der neuen Berechnung mit Makros vorheriges Diagramm löschen und durch aktuelles ersetzen. In der folgenden Code bekomme ich Fehlermeldung, dass die "Delete Methode für den Sheet fehlgeschlagen ist". Wie kann ich mein Problem lösen?
'Erstellen der Graphik-Massenbilanz
Set Bereich = Range(Cells(3, 1), Cells(7, 2))
Application.DisplayAlerts = False
Charts.Delete
Charts.Add
ActiveChart.ChartType = xl3DPie
With ActiveChart
.SetSourceData Source:=Bereich, PlotBy:=xlColumn
.HasTitle = True
.ChartTitle.Characters.Text = "Massenbilanz (kg)"
.HasLegend = True
ActiveChart.Location Where:=xlLocationAsObject, Name:="Massenbilanz"
Mfg
Ganna