Laufzeitfehler 1004

Hallo zusammen,
ich habe ein Makro, welches ein Diagramm erzeugt. Und hinterher sollen Legendeneinträge gelöscht werden mit diesem Code:
For n = 1 To (2 * numseats)
ActiveChart.Legend.LegendEntries(numseats + 4).Delete
Next n
(numseats ist ne weiter oben definierte Variable, an der For Next Schleife liegt es nicht...)
Nun funktioniert das manchmal, meistens kommt aber Laufzeitfehler 1004 (Delete Methode des LegendEntry Objektes konnte nicht ausgeführt werden). Ich weiß, dass es sauberer wäre, dem Diagramm nen Namen zu geben, weiß aber nicht genau, wie das geht. Außerdem spreche ich das Diagramm vorher und nachher auch erfolgreich mit "ActiveChart" an. Hat jemand ne Idee?
Schöne Grüße,
Doro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tst() For n = 2 * numseats To 1 Step -1 ActiveChart.Legend.LegendEntries(n + 4).Delete Next n 'oder (unwahrscheinlicher, aber könnte ja sein...) For n = 2 * numseats To 1 Step -1 ActiveChart.Legend.LegendEntries(numseats + 4).Delete Next n End Sub

Hi Erich,
das ist copy / paste aus ner Antwort von mir an einen anderen Teilnehmer.
Okay, etwas mehr Hintergrund: numseats ist die Anzahl meiner Testobjekte (übrigens Autositze, aber daran liegt es wohl nicht :-)). Pro Sitz erzeuge ich drei Datenreihen, sowie über alle Sitze den Mittelwert. Macht numseats * 3 plus 3 Datenreihen. Die Mittelwerte sollen in der Legende erscheinen, und für jeden Sitz ein Eintrag mit ner anderen Farbe. Macht numseats + 3 Legendeneinträge. Das Makro soll (numseats * 2) mal den (numseats +4).ten Eintrag löschen, also vom (numseats + 4).ten bis zum letzten Eintrag. In ner anderen Datei klappt das übrigens...
Habe die Messagebox eingefügt, und komme in meinem Beispiel (numseats = 16) auf 51 Sitze. Stimmt also genau. Ich möchte Eintrag 20 bis 51 löschen. Das Problem ist nach wie vor, dass das Diagramm nicht aktiv ist. Obwohl ich es sowohl vorher als auch nachher problemlos mit ActiveChart ansprechen kann: Ein Ausschnitt aus dem Code:
Das steht davor:
For k = 1 To numseats
For l = 0 To 2
With ActiveChart.SeriesCollection(k + l * numseats + 3)
With .Border
.ColorIndex = Sheets("Color").Cells(k + 1, 2).Interior.ColorIndex
.Weight = xlThin
.LineStyle = xlContinuous
End With
.MarkerBackgroundColorIndex = Sheets("Color").Cells(k + 1, 2).Interior.ColorIndex
.MarkerForegroundColorIndex = Sheets("Color").Cells(k + 1, 2).Interior.ColorIndex
.MarkerStyle = xlCircle
.Smooth = False
.MarkerSize = 6
.Shadow = False
End With
Next l
Next k
Und das danach:
ActiveChart.ChartArea.Border.LineStyle = 0
ActiveChart.HasLegend = True
With ActiveChart.Legend
.Position = xlRight
.Font.Size = 8
With .Border
.Weight = xlHairline
.LineStyle = xlAutomatic
End With
With .Interior
.ColorIndex = 15
.PatternColorIndex = 1
.Pattern = xlSolid
End With
End With
Also alles mit ActiveChart...
Grüße,
Doro

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 1004

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread