alle Daten löschen
21.01.2008 12:09:00
Kurt
löschen.
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
jetzt sollte die nächste Tabelle kommen etc.
gr KurtP