Reihen in Diagrammen löschen
Peter
habe noch ein kleines Problem zum Löschen von Diagrammreihen. Ich möchte bis auf die erste Reihe alle anderen Reihen löschen. Das können max 499 Reihen sein, ich weiß aber nie, wie viele es wirklich sind.
Hierzu benutze ich folgenden Code:
Sub Makro2()
Dim lReihe As Long
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.PlotArea.Select
On Error Resume Next
For lReihe = 2 To 500 Step 1
ActiveChart.SeriesCollection(lReihe).Delete
Next lReihe
End Sub
Was muss ich ändern?
Danke euch vorab,
Gruß,
Peter
https://www.herber.de/bbs/user/80966.xlsm