Clever-Excel-Forum › Office-Anwendungen › Excel v
XY-Diagramm mit Makro erstellen

Thema geschlossen 
Baumstrukturmodus
XY-Diagramm mit Makro erstellen
wuli Offline
pausiert
Registriert seit: 19.12.2017
Version(en): 2017
#1
13.09.2018, 16:50 (Dieser Beitrag wurde zuletzt bearbeitet: 13.09.2018, 16:53 von wuli.)
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


Angehängte Dateien
.xlsx   Beispiel1.xlsx (Größe: 406,42 KB / Downloads: 5)
Suchen
Top
Ego Offline
Benutzer
Registriert seit: 21.06.2016
Version(en): 2021
#2
13.09.2018, 22: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.
helmut

Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität.
Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.




[-] Folgende(r) 1 Nutzer sagt Danke an Ego für diesen Beitrag:
  • wuli
Suchen
Top
wuli Offline
pausiert
ThreadStarter
Registriert seit: 19.12.2017
Version(en): 2017
#3
14.09.2018, 12: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


Angehängte Dateien
.xlsm   Beispiel1_mit_Makro.xlsm (Größe: 412,34 KB / Downloads: 2)
Suchen
Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#4
17.09.2018, 07: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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • wuli
Homepage Suchen
Top
wuli Offline
pausiert
ThreadStarter
Registriert seit: 19.12.2017
Version(en): 2017
#5
17.09.2018, 08: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
Suchen
Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#6
17.09.2018, 09: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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste