meine Versuche in etwa 70 Tabellenblättern einen Datenreihennamen zu ändern sind bisher fehlgeschlagen. Die Aktivierung funktioniert noch, allerdings wird der Name nicht geändert. Hier mein Code:
Dim i As Integer
For i = 5 To 75
Sheets(i).Activate
ActiveSheet.ChartObjects(1).Activate
With ActiveSheet.ChartObjects(1).Chart
.SeriesCollection(4).Select
.SeriesCollection(4).Name = "Hallo"
End With
Next i
End Sub
Kann mir da jemand weiterhelfen? Auch ohne select, funktioniert es nicht wirklich.
Vielen Dank!