Möchte auf einem Tabellenblatt screeningsdata gerne alle existierenden charts löschen
Mit dem nachfolgenden code kann ich sehen wieviele objekte da sind und mir auch den Namen ausgeben lassen
z.B. sreeningdata chart 380
aber wie kann ich diese dann loeschen?
For i = 1 To Sheets("screeningdata").ChartObjects.count
MsgBox i
MsgBox Worksheets("screeningdata").ChartObjects(i).Chart.Name
Next i
Ausserdem versuche ich sie unterwegs umzubenennen z.B Worksheets("screeningdata").ChartObjects(i).Chart.Name = "test"
dann gibts einen dicken Fehler