VBA Diagramme seriesCollection(1) Values
David
Ich habe mit Hilfe von Beverly(danke nochmal) ein Makro geschrieben das mir Diagramme kopiert und diese mit den Werten einer anderen Tabelle in 4 Reihen befüllt!
Dieses Makro muss nun ca. über 200 dieser Diagramme erzeugen!
Es funktioniert auch einfandfrei nur bleibe ich in meiner Schleife immer in der Zeile 10 hängen!
(Das bedeutet es kopiert mir immerhin 6 Diagramme richtig, formatiert es und weißt die richtigen Daten zu)
Ich habe keine Ahnung warum das Makro in der 10. Zeile stoppt. Ich würde dringend eure Hilfe benötigen und wäre dankbar für Tipps oder eine Lösung!
Anbei habe ich noch eine Bsp. Datei mit hochgeladen!
https://www.herber.de/bbs/user/68341.zip
Hier noch der Code mit dem ich das Diagramm kopiere:
Sub Chart_kopieren()
Dim i As Integer
Dim chDiagramm As Chart
Dim strFormel1 As String
Dim strFormel2 As String
Dim strFormel3 As String
Dim strFormel4 As String
strFormel1 = "=DATENREIHE(""10. Perzentile"";(Entwicklung!$L$1;Entwicklung!$T$1;Entwicklung! _
_
$AB$1;Entwicklung!$AJ$1;Entwicklung!$AR$1;Entwicklung!$AZ$1);(Entwicklung!$L$3;Entwicklung!$T$3; _
Entwicklung!$AB$3;Entwicklung!$AJ$3;Entwicklung!$AR$3;Entwicklung!$AZ$3);) "
strFormel2 = "=DATENREIHE(""50. Perzentile"";(Entwicklung!$L$1;Entwicklung!$T$1;Entwicklung! _
_
$AB$1;Entwicklung!$AJ$1;Entwicklung!$AR$1;Entwicklung!$AZ$1);(Entwicklung!$M$3;Entwicklung!$U$3; _
Entwicklung!$AC$3;Entwicklung!$AK$3;Entwicklung!$AS$3;Entwicklung!$BA$3);)"
strFormel3 = "=DATENREIHE(""90. Perzentile"";(Entwicklung!$L$1;Entwicklung!$T$1;Entwicklung! _
_
$AB$1;Entwicklung!$AJ$1;Entwicklung!$AR$1;Entwicklung!$AZ$1);(Entwicklung!$N$3;Entwicklung!$V$3; _
Entwicklung!$AD$3;Entwicklung!$AL$3;Entwicklung!$AT$3;Entwicklung!$BB$3);)"
strFormel4 = "=DATENREIHE(""Frist"";(Entwicklung!$L$1;Entwicklung!$T$1;Entwicklung!$AB$1; _
Entwicklung!$AJ$1;Entwicklung!$AR$1;Entwicklung!$AZ$1);(Entwicklung!$O$3;Entwicklung!$W$3; _
Entwicklung!$AE$3;Entwicklung!$AM$3;Entwicklung!$AU$3;Entwicklung!$BC$3);)"
i = 3
While i