Weiterhin: Laufzeitfehler 2147417848 (80010108)
28.05.2017 16:15:13
Kliewe
Worum es geht: Ich erstelle mittels VBA Code Diagramme. Das mache ich, weil der Spaltenbezug ändert und Excel sonst die Diagramme nicht anzeigen kann. Das mache ich mit dem folgenden Code:
Sheets("Analysis").ChartObjects("Diagramm 13").Chart.SeriesCollection(1).Delete
Set ns = Sheets("Analysis").ChartObjects("Diagramm13").Chart.SeriesCollection.NewSeries
Sheets("Analysis").ChartObjects("Diagramm 13").Chart.SeriesCollection(1).XValues = Worksheets("Calculations").Range(Sheets("Calculations").Cells(1, 3), Sheets("Calculations").Cells(1, posspaltethy))
Sheets("Analysis").ChartObjects("Diagramm 13").Chart.SeriesCollection(1).Values = Worksheets("Calculations").Range(Sheets("Calculations").Cells(115, 3), Sheets("Calculations").Cells(115, posspaltethy))
Sheets("Analysis").ChartObjects("Diagramm 13").Chart.SeriesCollection(1).Name = "Capital value"
Sheets("Analysis").ChartObjects("Diagramm 13").Chart.SeriesCollection(1).Border.Color = RGB(0, 160, 245)
Sheets("Analysis").ChartObjects("Diagramm 13").Chart.SeriesCollection(1).ChartType = xlLine
Jetzt tritt manchmal der Laufzeitfehler 2147417848 auf "Die Methode "delet" für das Objekt "Chartobjects" ist fehlgeschlagen. Excel hängt sich dann komplett auf. Auch im Debugger schlagen danach alle Methoden fehl, egal welche. Man muss Excel dann mit dem Taskmanager neu starten. Das Kuriose: Danach funktioniert es wieder, OHNE das ich was im Code geändert habe.
Nach ein paar Durchgängen (immer unterschiedlich wie viele) das Gleiche Problem...
Was ich alles probiert habe:
-ich war in unserer IT Abteilung. Keiner weiß woran es liegt. Der Rechner und Excel sind auf dem neusten Stand, alle Updates sind gemacht.
-ich habe es mit meinem privaten Rechner probiert. Auch das gleiche Problem
-ich habe es mit On error resume next und on error goto 0 probiert und damit die erste Zeile "serices collection delete" isoliert. Der Fehler tritt dann einfach in der zweiten Zeile "series collection new series" auf
-ich habe doevents eingebaut, ohne erfolg
Was mich einfach wundern: wenn man Excel neu startet, funktioniert alles wieder. Deshalb kann es ja eigentlich nicht an dem Code liegen?!
Weiß jemand eventuell wie das irgendwie sein kann? Gibt es sonst eine andere Möglichkeit, Diagramme variabel zu erzeugen (wobei das eig mein letzter Schritt ist, es sind insgesamt 4 Diagramme und es war sehr viel Arbeit alles zu erzeugen). Läuft eventuell ein Speicher in Excel voll? Der beim Neustart gelöscht wird?
Ich bin absolut verzweifelt und weiß nicht weiter. Hoffe ihr könnt mir helfen...