Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > XY-Diagramm mit Makro erstellen
Normale Version: XY-Diagramm mit Makro erstellen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

wuli

13.09.2018, 15:50
Hallo liebes Forum,

da ich eine relativ große Datenauswertung machen will und meine Kenntnisse was VBA / Makros betrifft sehr dürftig ist, benötige ich bitte eure Hilfe  :17:

Im Anhang habe ich ein Beispiel angehängt:

Im Arbeitsblatt "Werte" sind die X- und Y-Werte die zu einem Diagramm (siehe Arbeitsblatt Diagramm) zusammengefügt werden sollen.
Damit ich nicht alle Datenreihen einzeln zum Diagramm hinzufügen muss würde ich das ganze mittels Makro gerne vereinfachen.

Die einzelnen Datenreihen sind immer abwechselnd pro Zeile, also:
X-Wert
Y-Wert
X-Wert
Y-Wert
usw.

Alle Datenreihen sollten in einem Diagramm zusammengefasst sein. Die Werte im Arbeitsblatt "Werte" können dabei auch variieren. Diese werden mittels Makro aus verschiedene .csv-Dateien eingefügt.

Für jegliche Antwort bin ich sehr dankbar  :19:

Viele Grüße :15: ,
Flo

Ego

13.09.2018, 21:15
Hallo Flo,

du willst doch nicht wirklich 258 Datenreihen in einem Diagramm darstellen?!

Was soll man denn daraus erkennen können?
Hier zwei Vorschläge:

1. Mach einen Auszug aus den Datenreihen indem du den Datenreihen eine eindeutige Kennung gibst und in einer gesonderten Liste einige Datenreihen über Verweise zusammenstellst und darüber dann die Grafik einrichtest.

2. Falls du dennoch darauf bestehst, kannst du unter "Entwicklertools">"Makro aufzeichnen" eine Aufzeichnung starten. Wenn du jetzt manuell die Grafik für die zwei- drei Datenreihen zusammenstellst, werden dir die genutzten Befehle in einem Makro hinterlegt. Dieses must du nur noch auf die anderen 255 Datenreihen erweitern.

Wenn du damit nicht klarkommst, kannst du dich ja noch einmal melden.

wuli

14.09.2018, 11:52
Hallo Helmut,

vielen Dank für deine Antwort.

Die Messdaten können variieren. Beispielsweise können sie 258 oder auch nur 50 Datensätze haben. Ich möchte mir die zukünftige Auswertung etwas bequemer gestalten und ein Makro-Programm haben das mir "automatisch" alle Messwerte in 1 Diagramm darstellt :) 

Das Makro habe ich aufgezeichnet:
Code:
Sub Diagramm_erstellen()
'
'
   ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(1).XValues = "=Werte!$1:$1"
   ActiveChart.FullSeriesCollection(1).Values = "=Werte!$2:$2"
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(2).XValues = "=Werte!$3:$3"
   ActiveChart.FullSeriesCollection(2).Values = "=Werte!$4:$4"
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(3).XValues = "=Werte!$5:$5"
   ActiveChart.FullSeriesCollection(3).Values = "=Werte!$6:$6"
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(4).XValues = "=Werte!$7:$7"
   ActiveChart.FullSeriesCollection(4).Values = "=Werte!$8:$8"
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(5).XValues = "=Werte!$9:$9"
   ActiveChart.FullSeriesCollection(5).Values = "=Werte!$10:$10"
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(6).XValues = "=Werte!$11:$11"
   ActiveChart.FullSeriesCollection(6).Values = "=Werte!$12:$12"
End Sub

Mein Problem ist jetzt, dass die Dateneingabe von 258 Sätzen sehr umfangreich ist. Und da die Datensätze variieren können ist mein Code vermutlich nicht der effektivste Weg.
Ich habe auch schon probiert einen Loop zu setzen. Leider ist dabei (außer Fehlermeldungen) nichts gescheites dabei rausgekommen  :20: :22:

Danke und LG
Flo

schauan

17.09.2018, 06:31
Hallöchen,

Du hast ja folgenden Code mehrfach wiederholt, nur mit anderen Zeilen.

Code:
ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(1).XValues = "=Werte!$1:$1"
   ActiveChart.FullSeriesCollection(1).Values = "=Werte!$2:$2"

Mit einer Schleife könnte das so aussehen
Code:
For iCnt = 1 to 11 Step 2
   ActiveChart.SeriesCollection.NewSeries
   ActiveChart.FullSeriesCollection(1).XValues = "=Werte!$" & iCnt & ":$" & iCnt
   ActiveChart.FullSeriesCollection(1).Values = "=Werte!$" & iCnt + 1 & ":$" & iCnt + 1
Next

wuli

17.09.2018, 07:45
Hallo,

danke für deine Hilfe - werde ich heute gleich probieren :) 

Ich habe mir über das Wochenende ein kleines Makro geschrieben was ganz gut funktioniert. Damit lassen sich ca. 250 Diagramme darstellen (nein ich habe nicht jede Zahl einzeln eingegeben ;) )

Code:
Sub Diagramm_erstellen()

   ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
   Application.CutCopyMode = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).XValues = "=Werte!$1:$1"
ActiveChart.FullSeriesCollection(1).Values = "=Werte!$2:$2"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).XValues = "=Werte!$3:$3"
ActiveChart.FullSeriesCollection(2).Values = "=Werte!$4:$4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(3).XValues = "=Werte!$5:$5"
ActiveChart.FullSeriesCollection(3).Values = "=Werte!$6:$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(4).XValues = "=Werte!$7:$7"
ActiveChart.FullSeriesCollection(4).Values = "=Werte!$8:$8"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(5).XValues = "=Werte!$9:$9"
ActiveChart.FullSeriesCollection(5).Values = "=Werte!$10:$10"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(6).XValues = "=Werte!$11:$11"
ActiveChart.FullSeriesCollection(6).Values = "=Werte!$12:$12"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(7).XValues = "=Werte!$13:$13"
ActiveChart.FullSeriesCollection(7).Values = "=Werte!$14:$14"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(8).XValues = "=Werte!$15:$15"
ActiveChart.FullSeriesCollection(8).Values = "=Werte!$16:$16"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(9).XValues = "=Werte!$17:$17"
ActiveChart.FullSeriesCollection(9).Values = "=Werte!$18:$18"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(10).XValues = "=Werte!$19:$19"
ActiveChart.FullSeriesCollection(10).Values = "=Werte!$20:$20"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(11).XValues = "=Werte!$21:$21"
ActiveChart.FullSeriesCollection(11).Values = "=Werte!$22:$22"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(12).XValues = "=Werte!$23:$23"
ActiveChart.FullSeriesCollection(12).Values = "=Werte!$24:$24"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(13).XValues = "=Werte!$25:$25"
ActiveChart.FullSeriesCollection(13).Values = "=Werte!$26:$26"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(14).XValues = "=Werte!$27:$27"
ActiveChart.FullSeriesCollection(14).Values = "=Werte!$28:$28"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(15).XValues = "=Werte!$29:$29"
ActiveChart.FullSeriesCollection(15).Values = "=Werte!$30:$30"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(16).XValues = "=Werte!$31:$31"
ActiveChart.FullSeriesCollection(16).Values = "=Werte!$32:$32"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(17).XValues = "=Werte!$33:$33"
ActiveChart.FullSeriesCollection(17).Values = "=Werte!$34:$34"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(18).XValues = "=Werte!$35:$35"
ActiveChart.FullSeriesCollection(18).Values = "=Werte!$36:$36"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(19).XValues = "=Werte!$37:$37"
ActiveChart.FullSeriesCollection(19).Values = "=Werte!$38:$38"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(20).XValues = "=Werte!$39:$39"
ActiveChart.FullSeriesCollection(20).Values = "=Werte!$40:$40"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(21).XValues = "=Werte!$41:$41"
ActiveChart.FullSeriesCollection(21).Values = "=Werte!$42:$42"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(22).XValues = "=Werte!$43:$43"
ActiveChart.FullSeriesCollection(22).Values = "=Werte!$44:$44"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(23).XValues = "=Werte!$45:$45"
ActiveChart.FullSeriesCollection(23).Values = "=Werte!$46:$46"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(24).XValues = "=Werte!$47:$47"
ActiveChart.FullSeriesCollection(24).Values = "=Werte!$48:$48"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(25).XValues = "=Werte!$49:$49"
ActiveChart.FullSeriesCollection(25).Values = "=Werte!$50:$50"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(26).XValues = "=Werte!$51:$51"
ActiveChart.FullSeriesCollection(26).Values = "=Werte!$52:$52"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(27).XValues = "=Werte!$53:$53"
ActiveChart.FullSeriesCollection(27).Values = "=Werte!$54:$54"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(28).XValues = "=Werte!$55:$55"
ActiveChart.FullSeriesCollection(28).Values = "=Werte!$56:$56"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(29).XValues = "=Werte!$57:$57"
ActiveChart.FullSeriesCollection(29).Values = "=Werte!$58:$58"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(30).XValues = "=Werte!$59:$59"
ActiveChart.FullSeriesCollection(30).Values = "=Werte!$60:$60"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(31).XValues = "=Werte!$61:$61"
ActiveChart.FullSeriesCollection(31).Values = "=Werte!$62:$62"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(32).XValues = "=Werte!$63:$63"
ActiveChart.FullSeriesCollection(32).Values = "=Werte!$64:$64"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(33).XValues = "=Werte!$65:$65"
ActiveChart.FullSeriesCollection(33).Values = "=Werte!$66:$66"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(34).XValues = "=Werte!$67:$67"
ActiveChart.FullSeriesCollection(34).Values = "=Werte!$68:$68"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(35).XValues = "=Werte!$69:$69"
ActiveChart.FullSeriesCollection(35).Values = "=Werte!$70:$70"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(36).XValues = "=Werte!$71:$71"
ActiveChart.FullSeriesCollection(36).Values = "=Werte!$72:$72"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(37).XValues = "=Werte!$73:$73"
ActiveChart.FullSeriesCollection(37).Values = "=Werte!$74:$74"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(38).XValues = "=Werte!$75:$75"
ActiveChart.FullSeriesCollection(38).Values = "=Werte!$76:$76"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(39).XValues = "=Werte!$77:$77"
ActiveChart.FullSeriesCollection(39).Values = "=Werte!$78:$78"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(40).XValues = "=Werte!$79:$79"
ActiveChart.FullSeriesCollection(40).Values = "=Werte!$80:$80"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(41).XValues = "=Werte!$81:$81"
ActiveChart.FullSeriesCollection(41).Values = "=Werte!$82:$82"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(42).XValues = "=Werte!$83:$83"
ActiveChart.FullSeriesCollection(42).Values = "=Werte!$84:$84"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(43).XValues = "=Werte!$85:$85"
ActiveChart.FullSeriesCollection(43).Values = "=Werte!$86:$86"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(44).XValues = "=Werte!$87:$87"
ActiveChart.FullSeriesCollection(44).Values = "=Werte!$88:$88"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(45).XValues = "=Werte!$89:$89"
ActiveChart.FullSeriesCollection(45).Values = "=Werte!$90:$90"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(46).XValues = "=Werte!$91:$91"
ActiveChart.FullSeriesCollection(46).Values = "=Werte!$92:$92"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(47).XValues = "=Werte!$93:$93"
ActiveChart.FullSeriesCollection(47).Values = "=Werte!$94:$94"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(48).XValues = "=Werte!$95:$95"
ActiveChart.FullSeriesCollection(48).Values = "=Werte!$96:$96"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(49).XValues = "=Werte!$97:$97"
ActiveChart.FullSeriesCollection(49).Values = "=Werte!$98:$98"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(50).XValues = "=Werte!$99:$99"
ActiveChart.FullSeriesCollection(50).Values = "=Werte!$100:$100"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(51).XValues = "=Werte!$101:$101"
ActiveChart.FullSeriesCollection(51).Values = "=Werte!$102:$102"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(52).XValues = "=Werte!$103:$103"
ActiveChart.FullSeriesCollection(52).Values = "=Werte!$104:$104"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(53).XValues = "=Werte!$105:$105"
ActiveChart.FullSeriesCollection(53).Values = "=Werte!$106:$106"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(54).XValues = "=Werte!$107:$107"
ActiveChart.FullSeriesCollection(54).Values = "=Werte!$108:$108"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(55).XValues = "=Werte!$109:$109"
ActiveChart.FullSeriesCollection(55).Values = "=Werte!$110:$110"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(56).XValues = "=Werte!$111:$111"
ActiveChart.FullSeriesCollection(56).Values = "=Werte!$112:$112"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(57).XValues = "=Werte!$113:$113"
ActiveChart.FullSeriesCollection(57).Values = "=Werte!$114:$114"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(58).XValues = "=Werte!$115:$115"
ActiveChart.FullSeriesCollection(58).Values = "=Werte!$116:$116"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(59).XValues = "=Werte!$117:$117"
ActiveChart.FullSeriesCollection(59).Values = "=Werte!$118:$118"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(60).XValues = "=Werte!$119:$119"
ActiveChart.FullSeriesCollection(60).Values = "=Werte!$120:$120"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(61).XValues = "=Werte!$121:$121"
ActiveChart.FullSeriesCollection(61).Values = "=Werte!$122:$122"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(62).XValues = "=Werte!$123:$123"
ActiveChart.FullSeriesCollection(62).Values = "=Werte!$124:$124"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(63).XValues = "=Werte!$125:$125"
ActiveChart.FullSeriesCollection(63).Values = "=Werte!$126:$126"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(64).XValues = "=Werte!$127:$127"
ActiveChart.FullSeriesCollection(64).Values = "=Werte!$128:$128"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(65).XValues = "=Werte!$129:$129"
ActiveChart.FullSeriesCollection(65).Values = "=Werte!$130:$130"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(66).XValues = "=Werte!$131:$131"
ActiveChart.FullSeriesCollection(66).Values = "=Werte!$132:$132"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(67).XValues = "=Werte!$133:$133"
ActiveChart.FullSeriesCollection(67).Values = "=Werte!$134:$134"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(68).XValues = "=Werte!$135:$135"
ActiveChart.FullSeriesCollection(68).Values = "=Werte!$136:$136"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(69).XValues = "=Werte!$137:$137"
ActiveChart.FullSeriesCollection(69).Values = "=Werte!$138:$138"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(70).XValues = "=Werte!$139:$139"
ActiveChart.FullSeriesCollection(70).Values = "=Werte!$140:$140"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(71).XValues = "=Werte!$141:$141"
ActiveChart.FullSeriesCollection(71).Values = "=Werte!$142:$142"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(72).XValues = "=Werte!$143:$143"
ActiveChart.FullSeriesCollection(72).Values = "=Werte!$144:$144"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(73).XValues = "=Werte!$145:$145"
ActiveChart.FullSeriesCollection(73).Values = "=Werte!$146:$146"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(74).XValues = "=Werte!$147:$147"
ActiveChart.FullSeriesCollection(74).Values = "=Werte!$148:$148"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(75).XValues = "=Werte!$149:$149"
ActiveChart.FullSeriesCollection(75).Values = "=Werte!$150:$150"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(76).XValues = "=Werte!$151:$151"
ActiveChart.FullSeriesCollection(76).Values = "=Werte!$152:$152"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(77).XValues = "=Werte!$153:$153"
ActiveChart.FullSeriesCollection(77).Values = "=Werte!$154:$154"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(78).XValues = "=Werte!$155:$155"
ActiveChart.FullSeriesCollection(78).Values = "=Werte!$156:$156"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(79).XValues = "=Werte!$157:$157"
ActiveChart.FullSeriesCollection(79).Values = "=Werte!$158:$158"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(80).XValues = "=Werte!$159:$159"
ActiveChart.FullSeriesCollection(80).Values = "=Werte!$160:$160"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(81).XValues = "=Werte!$161:$161"
ActiveChart.FullSeriesCollection(81).Values = "=Werte!$162:$162"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(82).XValues = "=Werte!$163:$163"
ActiveChart.FullSeriesCollection(82).Values = "=Werte!$164:$164"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(83).XValues = "=Werte!$165:$165"
ActiveChart.FullSeriesCollection(83).Values = "=Werte!$166:$166"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(84).XValues = "=Werte!$167:$167"
ActiveChart.FullSeriesCollection(84).Values = "=Werte!$168:$168"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(85).XValues = "=Werte!$169:$169"
ActiveChart.FullSeriesCollection(85).Values = "=Werte!$170:$170"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(86).XValues = "=Werte!$171:$171"
ActiveChart.FullSeriesCollection(86).Values = "=Werte!$172:$172"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(87).XValues = "=Werte!$173:$173"
ActiveChart.FullSeriesCollection(87).Values = "=Werte!$174:$174"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(88).XValues = "=Werte!$175:$175"
ActiveChart.FullSeriesCollection(88).Values = "=Werte!$176:$176"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(89).XValues = "=Werte!$177:$177"
ActiveChart.FullSeriesCollection(89).Values = "=Werte!$178:$178"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(90).XValues = "=Werte!$179:$179"
ActiveChart.FullSeriesCollection(90).Values = "=Werte!$180:$180"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(91).XValues = "=Werte!$181:$181"
ActiveChart.FullSeriesCollection(91).Values = "=Werte!$182:$182"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(92).XValues = "=Werte!$183:$183"
ActiveChart.FullSeriesCollection(92).Values = "=Werte!$184:$184"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(93).XValues = "=Werte!$185:$185"
ActiveChart.FullSeriesCollection(93).Values = "=Werte!$186:$186"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(94).XValues = "=Werte!$187:$187"
ActiveChart.FullSeriesCollection(94).Values = "=Werte!$188:$188"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(95).XValues = "=Werte!$189:$189"
ActiveChart.FullSeriesCollection(95).Values = "=Werte!$190:$190"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(96).XValues = "=Werte!$191:$191"
ActiveChart.FullSeriesCollection(96).Values = "=Werte!$192:$192"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(97).XValues = "=Werte!$193:$193"
ActiveChart.FullSeriesCollection(97).Values = "=Werte!$194:$194"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(98).XValues = "=Werte!$195:$195"
ActiveChart.FullSeriesCollection(98).Values = "=Werte!$196:$196"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(99).XValues = "=Werte!$197:$197"
ActiveChart.FullSeriesCollection(99).Values = "=Werte!$198:$198"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(100).XValues = "=Werte!$199:$199"
ActiveChart.FullSeriesCollection(100).Values = "=Werte!$200:$200"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(101).XValues = "=Werte!$201:$201"
ActiveChart.FullSeriesCollection(101).Values = "=Werte!$202:$202"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(102).XValues = "=Werte!$203:$203"
ActiveChart.FullSeriesCollection(102).Values = "=Werte!$204:$204"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(103).XValues = "=Werte!$205:$205"
ActiveChart.FullSeriesCollection(103).Values = "=Werte!$206:$206"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(104).XValues = "=Werte!$207:$207"
ActiveChart.FullSeriesCollection(104).Values = "=Werte!$208:$208"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(105).XValues = "=Werte!$209:$209"
ActiveChart.FullSeriesCollection(105).Values = "=Werte!$210:$210"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(106).XValues = "=Werte!$211:$211"
ActiveChart.FullSeriesCollection(106).Values = "=Werte!$212:$212"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(107).XValues = "=Werte!$213:$213"
ActiveChart.FullSeriesCollection(107).Values = "=Werte!$214:$214"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(108).XValues = "=Werte!$215:$215"
ActiveChart.FullSeriesCollection(108).Values = "=Werte!$216:$216"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(109).XValues = "=Werte!$217:$217"
ActiveChart.FullSeriesCollection(109).Values = "=Werte!$218:$218"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(110).XValues = "=Werte!$219:$219"
ActiveChart.FullSeriesCollection(110).Values = "=Werte!$220:$220"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(111).XValues = "=Werte!$221:$221"
ActiveChart.FullSeriesCollection(111).Values = "=Werte!$222:$222"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(112).XValues = "=Werte!$223:$223"
ActiveChart.FullSeriesCollection(112).Values = "=Werte!$224:$224"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(113).XValues = "=Werte!$225:$225"
ActiveChart.FullSeriesCollection(113).Values = "=Werte!$226:$226"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(114).XValues = "=Werte!$227:$227"
ActiveChart.FullSeriesCollection(114).Values = "=Werte!$228:$228"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(115).XValues = "=Werte!$229:$229"
ActiveChart.FullSeriesCollection(115).Values = "=Werte!$230:$230"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(116).XValues = "=Werte!$231:$231"
ActiveChart.FullSeriesCollection(116).Values = "=Werte!$232:$232"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(117).XValues = "=Werte!$233:$233"
ActiveChart.FullSeriesCollection(117).Values = "=Werte!$234:$234"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(118).XValues = "=Werte!$235:$235"
ActiveChart.FullSeriesCollection(118).Values = "=Werte!$236:$236"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(119).XValues = "=Werte!$237:$237"
ActiveChart.FullSeriesCollection(119).Values = "=Werte!$238:$238"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(120).XValues = "=Werte!$239:$239"
ActiveChart.FullSeriesCollection(120).Values = "=Werte!$240:$240"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(121).XValues = "=Werte!$241:$241"
ActiveChart.FullSeriesCollection(121).Values = "=Werte!$242:$242"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(122).XValues = "=Werte!$243:$243"
ActiveChart.FullSeriesCollection(122).Values = "=Werte!$244:$244"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(123).XValues = "=Werte!$245:$245"
ActiveChart.FullSeriesCollection(123).Values = "=Werte!$246:$246"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(124).XValues = "=Werte!$247:$247"
ActiveChart.FullSeriesCollection(124).Values = "=Werte!$248:$248"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(125).XValues = "=Werte!$249:$249"
ActiveChart.FullSeriesCollection(125).Values = "=Werte!$250:$250"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(126).XValues = "=Werte!$251:$251"
ActiveChart.FullSeriesCollection(126).Values = "=Werte!$252:$252"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(127).XValues = "=Werte!$253:$253"
ActiveChart.FullSeriesCollection(127).Values = "=Werte!$254:$254"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(128).XValues = "=Werte!$255:$255"
ActiveChart.FullSeriesCollection(128).Values = "=Werte!$256:$256"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(129).XValues = "=Werte!$257:$257"
ActiveChart.FullSeriesCollection(129).Values = "=Werte!$258:$258"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(130).XValues = "=Werte!$259:$259"
ActiveChart.FullSeriesCollection(130).Values = "=Werte!$260:$260"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(131).XValues = "=Werte!$261:$261"
ActiveChart.FullSeriesCollection(131).Values = "=Werte!$262:$262"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(132).XValues = "=Werte!$263:$263"
ActiveChart.FullSeriesCollection(132).Values = "=Werte!$264:$264"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(133).XValues = "=Werte!$265:$265"
ActiveChart.FullSeriesCollection(133).Values = "=Werte!$266:$266"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(134).XValues = "=Werte!$267:$267"
ActiveChart.FullSeriesCollection(134).Values = "=Werte!$268:$268"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(135).XValues = "=Werte!$269:$269"
ActiveChart.FullSeriesCollection(135).Values = "=Werte!$270:$270"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(136).XValues = "=Werte!$271:$271"
ActiveChart.FullSeriesCollection(136).Values = "=Werte!$272:$272"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(137).XValues = "=Werte!$273:$273"
ActiveChart.FullSeriesCollection(137).Values = "=Werte!$274:$274"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(138).XValues = "=Werte!$275:$275"
ActiveChart.FullSeriesCollection(138).Values = "=Werte!$276:$276"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(139).XValues = "=Werte!$277:$277"
ActiveChart.FullSeriesCollection(139).Values = "=Werte!$278:$278"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(140).XValues = "=Werte!$279:$279"
ActiveChart.FullSeriesCollection(140).Values = "=Werte!$280:$280"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(141).XValues = "=Werte!$281:$281"
ActiveChart.FullSeriesCollection(141).Values = "=Werte!$282:$282"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(142).XValues = "=Werte!$283:$283"
ActiveChart.FullSeriesCollection(142).Values = "=Werte!$284:$284"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(143).XValues = "=Werte!$285:$285"
ActiveChart.FullSeriesCollection(143).Values = "=Werte!$286:$286"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(144).XValues = "=Werte!$287:$287"
ActiveChart.FullSeriesCollection(144).Values = "=Werte!$288:$288"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(145).XValues = "=Werte!$289:$289"
ActiveChart.FullSeriesCollection(145).Values = "=Werte!$290:$290"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(146).XValues = "=Werte!$291:$291"
ActiveChart.FullSeriesCollection(146).Values = "=Werte!$292:$292"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(147).XValues = "=Werte!$293:$293"
ActiveChart.FullSeriesCollection(147).Values = "=Werte!$294:$294"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(148).XValues = "=Werte!$295:$295"
ActiveChart.FullSeriesCollection(148).Values = "=Werte!$296:$296"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(149).XValues = "=Werte!$297:$297"
ActiveChart.FullSeriesCollection(149).Values = "=Werte!$298:$298"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(150).XValues = "=Werte!$299:$299"
ActiveChart.FullSeriesCollection(150).Values = "=Werte!$300:$300"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(151).XValues = "=Werte!$301:$301"
ActiveChart.FullSeriesCollection(151).Values = "=Werte!$302:$302"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(152).XValues = "=Werte!$303:$303"
ActiveChart.FullSeriesCollection(152).Values = "=Werte!$304:$304"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(153).XValues = "=Werte!$305:$305"
ActiveChart.FullSeriesCollection(153).Values = "=Werte!$306:$306"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(154).XValues = "=Werte!$307:$307"
ActiveChart.FullSeriesCollection(154).Values = "=Werte!$308:$308"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(155).XValues = "=Werte!$309:$309"
ActiveChart.FullSeriesCollection(155).Values = "=Werte!$310:$310"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(156).XValues = "=Werte!$311:$311"
ActiveChart.FullSeriesCollection(156).Values = "=Werte!$312:$312"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(157).XValues = "=Werte!$313:$313"
ActiveChart.FullSeriesCollection(157).Values = "=Werte!$314:$314"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(158).XValues = "=Werte!$315:$315"
ActiveChart.FullSeriesCollection(158).Values = "=Werte!$316:$316"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(159).XValues = "=Werte!$317:$317"
ActiveChart.FullSeriesCollection(159).Values = "=Werte!$318:$318"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(160).XValues = "=Werte!$319:$319"
ActiveChart.FullSeriesCollection(160).Values = "=Werte!$320:$320"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(161).XValues = "=Werte!$321:$321"
ActiveChart.FullSeriesCollection(161).Values = "=Werte!$322:$322"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(162).XValues = "=Werte!$323:$323"
ActiveChart.FullSeriesCollection(162).Values = "=Werte!$324:$324"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(163).XValues = "=Werte!$325:$325"
ActiveChart.FullSeriesCollection(163).Values = "=Werte!$326:$326"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(164).XValues = "=Werte!$327:$327"
ActiveChart.FullSeriesCollection(164).Values = "=Werte!$328:$328"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(165).XValues = "=Werte!$329:$329"
ActiveChart.FullSeriesCollection(165).Values = "=Werte!$330:$330"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(166).XValues = "=Werte!$331:$331"
ActiveChart.FullSeriesCollection(166).Values = "=Werte!$332:$332"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(167).XValues = "=Werte!$333:$333"
ActiveChart.FullSeriesCollection(167).Values = "=Werte!$334:$334"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(168).XValues = "=Werte!$335:$335"
ActiveChart.FullSeriesCollection(168).Values = "=Werte!$336:$336"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(169).XValues = "=Werte!$337:$337"
ActiveChart.FullSeriesCollection(169).Values = "=Werte!$338:$338"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(170).XValues = "=Werte!$339:$339"
ActiveChart.FullSeriesCollection(170).Values = "=Werte!$340:$340"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(171).XValues = "=Werte!$341:$341"
ActiveChart.FullSeriesCollection(171).Values = "=Werte!$342:$342"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(172).XValues = "=Werte!$343:$343"
ActiveChart.FullSeriesCollection(172).Values = "=Werte!$344:$344"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(173).XValues = "=Werte!$345:$345"
ActiveChart.FullSeriesCollection(173).Values = "=Werte!$346:$346"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(174).XValues = "=Werte!$347:$347"
ActiveChart.FullSeriesCollection(174).Values = "=Werte!$348:$348"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(175).XValues = "=Werte!$349:$349"
ActiveChart.FullSeriesCollection(175).Values = "=Werte!$350:$350"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(176).XValues = "=Werte!$351:$351"
ActiveChart.FullSeriesCollection(176).Values = "=Werte!$352:$352"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(177).XValues = "=Werte!$353:$353"
ActiveChart.FullSeriesCollection(177).Values = "=Werte!$354:$354"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(178).XValues = "=Werte!$355:$355"
ActiveChart.FullSeriesCollection(178).Values = "=Werte!$356:$356"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(179).XValues = "=Werte!$357:$357"
ActiveChart.FullSeriesCollection(179).Values = "=Werte!$358:$358"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(180).XValues = "=Werte!$359:$359"
ActiveChart.FullSeriesCollection(180).Values = "=Werte!$360:$360"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(181).XValues = "=Werte!$361:$361"
ActiveChart.FullSeriesCollection(181).Values = "=Werte!$362:$362"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(182).XValues = "=Werte!$363:$363"
ActiveChart.FullSeriesCollection(182).Values = "=Werte!$364:$364"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(183).XValues = "=Werte!$365:$365"
ActiveChart.FullSeriesCollection(183).Values = "=Werte!$366:$366"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(184).XValues = "=Werte!$367:$367"
ActiveChart.FullSeriesCollection(184).Values = "=Werte!$368:$368"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(185).XValues = "=Werte!$369:$369"
ActiveChart.FullSeriesCollection(185).Values = "=Werte!$370:$370"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(186).XValues = "=Werte!$371:$371"
ActiveChart.FullSeriesCollection(186).Values = "=Werte!$372:$372"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(187).XValues = "=Werte!$373:$373"
ActiveChart.FullSeriesCollection(187).Values = "=Werte!$374:$374"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(188).XValues = "=Werte!$375:$375"
ActiveChart.FullSeriesCollection(188).Values = "=Werte!$376:$376"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(189).XValues = "=Werte!$377:$377"
ActiveChart.FullSeriesCollection(189).Values = "=Werte!$378:$378"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(190).XValues = "=Werte!$379:$379"
ActiveChart.FullSeriesCollection(190).Values = "=Werte!$380:$380"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(191).XValues = "=Werte!$381:$381"
ActiveChart.FullSeriesCollection(191).Values = "=Werte!$382:$382"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(192).XValues = "=Werte!$383:$383"
ActiveChart.FullSeriesCollection(192).Values = "=Werte!$384:$384"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(193).XValues = "=Werte!$385:$385"
ActiveChart.FullSeriesCollection(193).Values = "=Werte!$386:$386"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(194).XValues = "=Werte!$387:$387"
ActiveChart.FullSeriesCollection(194).Values = "=Werte!$388:$388"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(195).XValues = "=Werte!$389:$389"
ActiveChart.FullSeriesCollection(195).Values = "=Werte!$390:$390"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(196).XValues = "=Werte!$391:$391"
ActiveChart.FullSeriesCollection(196).Values = "=Werte!$392:$392"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(197).XValues = "=Werte!$393:$393"
ActiveChart.FullSeriesCollection(197).Values = "=Werte!$394:$394"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(198).XValues = "=Werte!$395:$395"
ActiveChart.FullSeriesCollection(198).Values = "=Werte!$396:$396"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(199).XValues = "=Werte!$397:$397"
ActiveChart.FullSeriesCollection(199).Values = "=Werte!$398:$398"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(200).XValues = "=Werte!$399:$399"
ActiveChart.FullSeriesCollection(200).Values = "=Werte!$400:$400"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(201).XValues = "=Werte!$401:$401"
ActiveChart.FullSeriesCollection(201).Values = "=Werte!$402:$402"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(202).XValues = "=Werte!$403:$403"
ActiveChart.FullSeriesCollection(202).Values = "=Werte!$404:$404"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(203).XValues = "=Werte!$405:$405"
ActiveChart.FullSeriesCollection(203).Values = "=Werte!$406:$406"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(204).XValues = "=Werte!$407:$407"
ActiveChart.FullSeriesCollection(204).Values = "=Werte!$408:$408"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(205).XValues = "=Werte!$409:$409"
ActiveChart.FullSeriesCollection(205).Values = "=Werte!$410:$410"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(206).XValues = "=Werte!$411:$411"
ActiveChart.FullSeriesCollection(206).Values = "=Werte!$412:$412"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(207).XValues = "=Werte!$413:$413"
ActiveChart.FullSeriesCollection(207).Values = "=Werte!$414:$414"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(208).XValues = "=Werte!$415:$415"
ActiveChart.FullSeriesCollection(208).Values = "=Werte!$416:$416"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(209).XValues = "=Werte!$417:$417"
ActiveChart.FullSeriesCollection(209).Values = "=Werte!$418:$418"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(210).XValues = "=Werte!$419:$419"
ActiveChart.FullSeriesCollection(210).Values = "=Werte!$420:$420"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(211).XValues = "=Werte!$421:$421"
ActiveChart.FullSeriesCollection(211).Values = "=Werte!$422:$422"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(212).XValues = "=Werte!$423:$423"
ActiveChart.FullSeriesCollection(212).Values = "=Werte!$424:$424"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(213).XValues = "=Werte!$425:$425"
ActiveChart.FullSeriesCollection(213).Values = "=Werte!$426:$426"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(214).XValues = "=Werte!$427:$427"
ActiveChart.FullSeriesCollection(214).Values = "=Werte!$428:$428"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(215).XValues = "=Werte!$429:$429"
ActiveChart.FullSeriesCollection(215).Values = "=Werte!$430:$430"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(216).XValues = "=Werte!$431:$431"
ActiveChart.FullSeriesCollection(216).Values = "=Werte!$432:$432"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(217).XValues = "=Werte!$433:$433"
ActiveChart.FullSeriesCollection(217).Values = "=Werte!$434:$434"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(218).XValues = "=Werte!$435:$435"
ActiveChart.FullSeriesCollection(218).Values = "=Werte!$436:$436"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(219).XValues = "=Werte!$437:$437"
ActiveChart.FullSeriesCollection(219).Values = "=Werte!$438:$438"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(220).XValues = "=Werte!$439:$439"
ActiveChart.FullSeriesCollection(220).Values = "=Werte!$440:$440"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(221).XValues = "=Werte!$441:$441"
ActiveChart.FullSeriesCollection(221).Values = "=Werte!$442:$442"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(222).XValues = "=Werte!$443:$443"
ActiveChart.FullSeriesCollection(222).Values = "=Werte!$444:$444"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(223).XValues = "=Werte!$445:$445"
ActiveChart.FullSeriesCollection(223).Values = "=Werte!$446:$446"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(224).XValues = "=Werte!$447:$447"
ActiveChart.FullSeriesCollection(224).Values = "=Werte!$448:$448"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(225).XValues = "=Werte!$449:$449"
ActiveChart.FullSeriesCollection(225).Values = "=Werte!$450:$450"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(226).XValues = "=Werte!$451:$451"
ActiveChart.FullSeriesCollection(226).Values = "=Werte!$452:$452"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(227).XValues = "=Werte!$453:$453"
ActiveChart.FullSeriesCollection(227).Values = "=Werte!$454:$454"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(228).XValues = "=Werte!$455:$455"
ActiveChart.FullSeriesCollection(228).Values = "=Werte!$456:$456"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(229).XValues = "=Werte!$457:$457"
ActiveChart.FullSeriesCollection(229).Values = "=Werte!$458:$458"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(230).XValues = "=Werte!$459:$459"
ActiveChart.FullSeriesCollection(230).Values = "=Werte!$460:$460"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(231).XValues = "=Werte!$461:$461"
ActiveChart.FullSeriesCollection(231).Values = "=Werte!$462:$462"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(232).XValues = "=Werte!$463:$463"
ActiveChart.FullSeriesCollection(232).Values = "=Werte!$464:$464"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(233).XValues = "=Werte!$465:$465"
ActiveChart.FullSeriesCollection(233).Values = "=Werte!$466:$466"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(234).XValues = "=Werte!$467:$467"
ActiveChart.FullSeriesCollection(234).Values = "=Werte!$468:$468"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(235).XValues = "=Werte!$469:$469"
ActiveChart.FullSeriesCollection(235).Values = "=Werte!$470:$470"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(236).XValues = "=Werte!$471:$471"
ActiveChart.FullSeriesCollection(236).Values = "=Werte!$472:$472"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(237).XValues = "=Werte!$473:$473"
ActiveChart.FullSeriesCollection(237).Values = "=Werte!$474:$474"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(238).XValues = "=Werte!$475:$475"
ActiveChart.FullSeriesCollection(238).Values = "=Werte!$476:$476"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(239).XValues = "=Werte!$477:$477"
ActiveChart.FullSeriesCollection(239).Values = "=Werte!$478:$478"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(240).XValues = "=Werte!$479:$479"
ActiveChart.FullSeriesCollection(240).Values = "=Werte!$480:$480"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(241).XValues = "=Werte!$481:$481"
ActiveChart.FullSeriesCollection(241).Values = "=Werte!$482:$482"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(242).XValues = "=Werte!$483:$483"
ActiveChart.FullSeriesCollection(242).Values = "=Werte!$484:$484"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(243).XValues = "=Werte!$485:$485"
ActiveChart.FullSeriesCollection(243).Values = "=Werte!$486:$486"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(244).XValues = "=Werte!$487:$487"
ActiveChart.FullSeriesCollection(244).Values = "=Werte!$488:$488"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(245).XValues = "=Werte!$489:$489"
ActiveChart.FullSeriesCollection(245).Values = "=Werte!$490:$490"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(246).XValues = "=Werte!$491:$491"
ActiveChart.FullSeriesCollection(246).Values = "=Werte!$492:$492"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(247).XValues = "=Werte!$493:$493"
ActiveChart.FullSeriesCollection(247).Values = "=Werte!$494:$494"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(248).XValues = "=Werte!$495:$495"
ActiveChart.FullSeriesCollection(248).Values = "=Werte!$496:$496"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(249).XValues = "=Werte!$497:$497"
ActiveChart.FullSeriesCollection(249).Values = "=Werte!$498:$498"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(250).XValues = "=Werte!$499:$499"
ActiveChart.FullSeriesCollection(250).Values = "=Werte!$500:$500"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(251).XValues = "=Werte!$501:$501"
ActiveChart.FullSeriesCollection(251).Values = "=Werte!$502:$502"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(252).XValues = "=Werte!$503:$503"
ActiveChart.FullSeriesCollection(252).Values = "=Werte!$504:$504"


End Sub

Vielleicht hat ja einmal wer das selbe Problem wie ich. Dann kann er / sie diesen Code nutzen ;) 

Viele Grüße,
Flo

schauan

17.09.2018, 08:20
Hallo Flo,

viele Antworter waren die letzten Tage zum Forumstreffen, daher kamen die Antworten vielleicht nicht so häufig / nicht so schnell. Übrigens könnte man die Schleife auch noch flexibel gestalten. Im Moment müsstest Du manuell die Endzahl ändern, aber man könnte z.B. auch nach der letzten gefüllten Zelle schauen oder das an etwas anderem ausmachen.
Clever-Excel-Forum > Office-Anwendungen > Excel > XY-Diagramm mit Makro erstellen