Seriescollection Chart HILFE!!!
Simon
Diagramm1.Activate
With ActiveChart
Do Until .SeriesCollection.Count = 1
.SeriesCollection(1).Delete
Loop
End With
With ActiveChart
With ActiveChart.SeriesCollection.NewSeries
.XValues = Worksheets("Tabelle1").Range("B1:B5")
.Values = Worksheets("Tabelle1").Range("C1:C5")
.Name="Test"
End With
End With
Ich hab das Beispiel vereinfacht, aber im Prinzip kommt immer die gleich Fehlermeldung.
Der läuft 1-Mal einen der fetten Befehle durch und dann beim zweiten kommt direkt eine Fahlermeldung alla value-,delete-,name- Eigenschaft des Series-Objektes kann nicht festgelegt werden.
Ich bin total am verzweifeln, weil ich weiss nicht woran es liegen könnte.