Gruppe
Grafik
Problem
Auf Schaltflächendruck soll das bestehende Diagramm - falls vorhanden - gelöscht und ein neues erstellt werden. Die Anzahl der Spalten und Zeilen soll dynamisch sein.
StandardModule: Modul1
Sub CreateAndDelete()
Dim cht As Chart
On Error Resume Next
ActiveSheet.ChartObjects(1).Delete
On Error GoTo 0
Set cht = Charts.Add
cht.ChartType = xlColumnClustered
cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1").CurrentRegion
cht.Location Where:=xlLocationAsObject, Name:="Tabelle1"
Range("A1").Select
End Sub