##// END OF EJS Templates
Projects » PositioningSystem
RSS
- No smoothing for diagrams
LabVIEW -
r18:19
parent child Browse files
Show More
Show file before | Show file after | Hide comments
@@ -1,217 +1,221
1 Sub AktualisiereXYDiagrammWiderstand() No newline at end of file
1 Sub AktualisiereXYDiagrammWiderstand()
2 Dim datenWs As Worksheet No newline at end of file
2 Dim datenWs As Worksheet
3 Dim diagrammWs As Worksheet No newline at end of file
3 Dim diagrammWs As Worksheet
4 Dim chartObj As ChartObject No newline at end of file
4 Dim chartObj As ChartObject
5 Dim diagramm As Chart No newline at end of file
5 Dim diagramm As Chart
6 Dim xRange As Range No newline at end of file
6 Dim xRange As Range
7 Dim yRange As Range No newline at end of file
7 Dim yRange As Range
8 Dim letzteSpalte As Long No newline at end of file
8 Dim letzteSpalte As Long
9 Dim letzteZeile As Long No newline at end of file
9 Dim letzteZeile As Long
10 Dim i As Long No newline at end of file
10 Dim i As Long
11 ' Arbeitsblätter definieren No newline at end of file
11 ' Arbeitsblätter definieren
12 Set datenWs = ThisWorkbook.Worksheets(1) ' Blatt mit den Daten No newline at end of file
12 Set datenWs = ThisWorkbook.Worksheets(1) ' Blatt mit den Daten
13 Set diagrammWs = ThisWorkbook.Worksheets(3) ' Blatt mit dem Diagramm No newline at end of file
13 Set diagrammWs = ThisWorkbook.Worksheets(3) ' Blatt mit dem Diagramm
14 ' Diagramm definieren No newline at end of file
14 ' Diagramm definieren
15 Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen No newline at end of file
15 Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen
16 Set diagramm = chartObj.Chart No newline at end of file
16 Set diagramm = chartObj.Chart
17 ' Letzte Zeile und Spalte der Daten finden No newline at end of file
17 ' Letzte Zeile und Spalte der Daten finden
18 letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A No newline at end of file
18 letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A
19 letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B No newline at end of file
19 letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B
20 ' MsgBox letzteZeile, vbInformation No newline at end of file
20 ' MsgBox letzteZeile, vbInformation
21 ' MsgBox letzteSpalte, vbInformation No newline at end of file
21 ' MsgBox letzteSpalte, vbInformation
22 ' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3) No newline at end of file
22 ' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3)
23 Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3 No newline at end of file
23 Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3
24 ' Bestehende Datenreihen im Diagramm entfernen No newline at end of file
24 ' Bestehende Datenreihen im Diagramm entfernen
25 Do While diagramm.SeriesCollection.Count > 0 No newline at end of file
25 Do While diagramm.SeriesCollection.Count > 0
26 diagramm.SeriesCollection(1).Delete No newline at end of file
26 diagramm.SeriesCollection(1).Delete
27 Loop No newline at end of file
27 Loop
28 ' Neue Datenreihen hinzufügen No newline at end of file
28 ' Neue Datenreihen hinzufügen
29 For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B No newline at end of file
29 For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B
30 Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i)) No newline at end of file
30 Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
31 ' Neue Datenreihe hinzufügen No newline at end of file
31 ' Neue Datenreihe hinzufügen
32 With diagramm.SeriesCollection.NewSeries No newline at end of file
32 With diagramm.SeriesCollection.NewSeries
33 .Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1) No newline at end of file
33 .Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1)
34 .XValues = xRange No newline at end of file
34 .XValues = xRange
35 .Values = yRange No newline at end of file
35 .Values = yRange
36 .Smooth = False ' Glätten ausschalten No newline at end of file
36 End With No newline at end of file
37 End With
37 Next i No newline at end of file
38 Next i
38 End Sub No newline at end of file
39 End Sub
39 No newline at end of file
40
40 Sub AktualisiereXYDiagrammKraft() No newline at end of file
41 Sub AktualisiereXYDiagrammKraft()
41 Dim datenWs As Worksheet No newline at end of file
42 Dim datenWs As Worksheet
42 Dim diagrammWs As Worksheet No newline at end of file
43 Dim diagrammWs As Worksheet
43 Dim chartObj As ChartObject No newline at end of file
44 Dim chartObj As ChartObject
44 Dim diagramm As Chart No newline at end of file
45 Dim diagramm As Chart
45 Dim xRange As Range No newline at end of file
46 Dim xRange As Range
46 Dim yRange As Range No newline at end of file
47 Dim yRange As Range
47 Dim letzteSpalte As Long No newline at end of file
48 Dim letzteSpalte As Long
48 Dim letzteZeile As Long No newline at end of file
49 Dim letzteZeile As Long
49 Dim i As Long No newline at end of file
50 Dim i As Long
50 ' Arbeitsblätter definieren No newline at end of file
51 ' Arbeitsblätter definieren
51 Set datenWs = ThisWorkbook.Worksheets(2) ' Blatt mit den Daten No newline at end of file
52 Set datenWs = ThisWorkbook.Worksheets(2) ' Blatt mit den Daten
52 Set diagrammWs = ThisWorkbook.Worksheets(4) ' Blatt mit dem Diagramm No newline at end of file
53 Set diagrammWs = ThisWorkbook.Worksheets(4) ' Blatt mit dem Diagramm
53 ' Diagramm definieren No newline at end of file
54 ' Diagramm definieren
54 Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen No newline at end of file
55 Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen
55 Set diagramm = chartObj.Chart No newline at end of file
56 Set diagramm = chartObj.Chart
56 ' Letzte Zeile und Spalte der Daten finden No newline at end of file
57 ' Letzte Zeile und Spalte der Daten finden
57 letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A No newline at end of file
58 letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A
58 letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B No newline at end of file
59 letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B
59 'MsgBox letzteZeile, vbInformation No newline at end of file
60 'MsgBox letzteZeile, vbInformation
60 'MsgBox letzteSpalte, vbInformation No newline at end of file
61 'MsgBox letzteSpalte, vbInformation
61 ' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3) No newline at end of file
62 ' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3)
62 Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3 No newline at end of file
63 Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3
63 ' Bestehende Datenreihen im Diagramm entfernen No newline at end of file
64 ' Bestehende Datenreihen im Diagramm entfernen
64 Do While diagramm.SeriesCollection.Count > 0 No newline at end of file
65 Do While diagramm.SeriesCollection.Count > 0
65 diagramm.SeriesCollection(1).Delete No newline at end of file
66 diagramm.SeriesCollection(1).Delete
66 Loop No newline at end of file
67 Loop
67 ' Neue Datenreihen hinzufügen No newline at end of file
68 ' Neue Datenreihen hinzufügen
68 For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B No newline at end of file
69 For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B
69 Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i)) No newline at end of file
70 Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
70 ' Neue Datenreihe hinzufügen No newline at end of file
71 ' Neue Datenreihe hinzufügen
71 With diagramm.SeriesCollection.NewSeries No newline at end of file
72 With diagramm.SeriesCollection.NewSeries
72 .Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1) No newline at end of file
73 .Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1)
73 .XValues = xRange No newline at end of file
74 .XValues = xRange
74 .Values = yRange No newline at end of file
75 .Values = yRange
76 .Smooth = False ' Glätten ausschalten No newline at end of file
75 End With No newline at end of file
77 End With
76 Next i No newline at end of file
78 Next i
77 End Sub No newline at end of file
79 End Sub
78 No newline at end of file
80
79 Sub AktualisiereXYDiagrammInkrementWiderstand() No newline at end of file
81 Sub AktualisiereXYDiagrammInkrementWiderstand()
80 Dim wsAktuell As Worksheet No newline at end of file
82 Dim wsAktuell As Worksheet
81 Dim ws As Worksheet No newline at end of file
83 Dim ws As Worksheet
82 Dim chartObj As ChartObject No newline at end of file
84 Dim chartObj As ChartObject
83 Dim diagramm As Chart No newline at end of file
85 Dim diagramm As Chart
84 Dim letzteZeile As Long No newline at end of file
86 Dim letzteZeile As Long
85 Dim letzteSpalte As Long No newline at end of file
87 Dim letzteSpalte As Long
86 Dim datenBereichX As Range No newline at end of file
88 Dim datenBereichX As Range
87 Dim datenBereichY1 As Range No newline at end of file
89 Dim datenBereichY1 As Range
88 Dim datenReihe As Series No newline at end of file
90 Dim datenReihe As Series
89 Dim diagrammTitel As String No newline at end of file
91 Dim diagrammTitel As String
90 Dim startZeile As Long No newline at end of file
92 Dim startZeile As Long
91 Dim blockAnzahl As Long No newline at end of file
93 Dim blockAnzahl As Long
92 Dim blockStartSpalte As Long No newline at end of file
94 Dim blockStartSpalte As Long
93 Dim blockEndSpalte As Long No newline at end of file
95 Dim blockEndSpalte As Long
94 Dim blockIndex As Integer No newline at end of file
96 Dim blockIndex As Integer
95 No newline at end of file
97
96 ' Arbeitsblatt "Widerstandsdiagramm" festlegen No newline at end of file
98 ' Arbeitsblatt "Widerstandsdiagramm" festlegen
97 Set wsAktuell = ThisWorkbook.Worksheets("Widerstandsdiagramm") No newline at end of file
99 Set wsAktuell = ThisWorkbook.Worksheets("Widerstandsdiagramm")
98 No newline at end of file
100
99 ' Diagramm auf "Widerstandsdiagramm" suchen No newline at end of file
101 ' Diagramm auf "Widerstandsdiagramm" suchen
100 If wsAktuell.ChartObjects.Count = 0 Then No newline at end of file
102 If wsAktuell.ChartObjects.Count = 0 Then
101 MsgBox "Kein Diagramm auf 'Widerstandsdiagramm' gefunden.", vbExclamation No newline at end of file
103 MsgBox "Kein Diagramm auf 'Widerstandsdiagramm' gefunden.", vbExclamation
102 Exit Sub No newline at end of file
104 Exit Sub
103 End If No newline at end of file
105 End If
104 No newline at end of file
106
105 Set chartObj = wsAktuell.ChartObjects(1) No newline at end of file
107 Set chartObj = wsAktuell.ChartObjects(1)
106 Set diagramm = chartObj.Chart No newline at end of file
108 Set diagramm = chartObj.Chart
107 No newline at end of file
109
108 ' Vorhandene Datenreihen löschen No newline at end of file
110 ' Vorhandene Datenreihen löschen
109 Do While diagramm.SeriesCollection.Count > 0 No newline at end of file
111 Do While diagramm.SeriesCollection.Count > 0
110 diagramm.SeriesCollection(1).Delete No newline at end of file
112 diagramm.SeriesCollection(1).Delete
111 Loop No newline at end of file
113 Loop
112 No newline at end of file
114
113 ' Alle Blätter vor "Widerstandsdiagramm" durchlaufen No newline at end of file
115 ' Alle Blätter vor "Widerstandsdiagramm" durchlaufen
114 For Each ws In ThisWorkbook.Worksheets No newline at end of file
116 For Each ws In ThisWorkbook.Worksheets
115 If ws.Index < wsAktuell.Index Then No newline at end of file
117 If ws.Index < wsAktuell.Index Then
116 ' Letzte Zeile im Blatt ermitteln No newline at end of file
118 ' Letzte Zeile im Blatt ermitteln
117 letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row No newline at end of file
119 letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
118 No newline at end of file
120
119 ' Prüfen, ob relevante Daten vorhanden sind No newline at end of file
121 ' Prüfen, ob relevante Daten vorhanden sind
120 If letzteZeile >= 3 Then No newline at end of file
122 If letzteZeile >= 3 Then
121 ' Startzeile und Anzahl der Datenblöcke definieren No newline at end of file
123 ' Startzeile und Anzahl der Datenblöcke definieren
122 startZeile = 3 No newline at end of file
124 startZeile = 3
123 blockStartSpalte = 1 ' Erste Spalte für x No newline at end of file
125 blockStartSpalte = 1 ' Erste Spalte für x
124 blockEndSpalte = 3 ' Spalten x, y1, y2 No newline at end of file
126 blockEndSpalte = 3 ' Spalten x, y1, y2
125 blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke No newline at end of file
127 blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke
126 No newline at end of file
128
127 ' Datenblöcke durchlaufen No newline at end of file
129 ' Datenblöcke durchlaufen
128 For blockIndex = 0 To blockAnzahl - 1 No newline at end of file
130 For blockIndex = 0 To blockAnzahl - 1
129 ' X-Werte und Y1-Werte für den aktuellen Block definieren No newline at end of file
131 ' X-Werte und Y1-Werte für den aktuellen Block definieren
130 With ws No newline at end of file
132 With ws
131 Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _ No newline at end of file
133 Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _
132 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X No newline at end of file
134 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X
133 Set datenBereichY1 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 1), _ No newline at end of file
135 Set datenBereichY1 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 1), _
134 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 1)) ' Spalte Y1 No newline at end of file
136 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 1)) ' Spalte Y1
135 No newline at end of file
137
136 ' Neue Datenreihe hinzufügen No newline at end of file
138 ' Neue Datenreihe hinzufügen
137 Set datenReihe = diagramm.SeriesCollection.NewSeries No newline at end of file
139 Set datenReihe = diagramm.SeriesCollection.NewSeries
138 datenReihe.Values = datenBereichY1 No newline at end of file
140 datenReihe.Values = datenBereichY1
139 datenReihe.XValues = datenBereichX No newline at end of file
141 datenReihe.XValues = datenBereichX
140 datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1) No newline at end of file
142 datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1)
143 datenReihe.Smooth = False No newline at end of file
141 End With No newline at end of file
144 End With
142 Next blockIndex No newline at end of file
145 Next blockIndex
143 End If No newline at end of file
146 End If
144 End If No newline at end of file
147 End If
145 Next ws No newline at end of file
148 Next ws
146 End Sub No newline at end of file
149 End Sub
147 No newline at end of file
150
148 Sub AktualisiereXYDiagrammInkrementKraft() No newline at end of file
151 Sub AktualisiereXYDiagrammInkrementKraft()
149 Dim wsWiderstand As Worksheet No newline at end of file
152 Dim wsWiderstand As Worksheet
150 Dim wsKraft As Worksheet No newline at end of file
153 Dim wsKraft As Worksheet
151 Dim ws As Worksheet No newline at end of file
154 Dim ws As Worksheet
152 Dim chartObj As ChartObject No newline at end of file
155 Dim chartObj As ChartObject
153 Dim diagramm As Chart No newline at end of file
156 Dim diagramm As Chart
154 Dim letzteZeile As Long No newline at end of file
157 Dim letzteZeile As Long
155 Dim datenBereichX As Range No newline at end of file
158 Dim datenBereichX As Range
156 Dim datenBereichY2 As Range No newline at end of file
159 Dim datenBereichY2 As Range
157 Dim datenReihe As Series No newline at end of file
160 Dim datenReihe As Series
158 Dim diagrammTitel As String No newline at end of file
161 Dim diagrammTitel As String
159 Dim startZeile As Long No newline at end of file
162 Dim startZeile As Long
160 Dim blockAnzahl As Long No newline at end of file
163 Dim blockAnzahl As Long
161 Dim blockStartSpalte As Long No newline at end of file
164 Dim blockStartSpalte As Long
162 Dim blockEndSpalte As Long No newline at end of file
165 Dim blockEndSpalte As Long
163 Dim blockIndex As Integer No newline at end of file
166 Dim blockIndex As Integer
164 No newline at end of file
167
165 ' Arbeitsblätter "Widerstandsdiagramm" und "Kraftdiagramm" festlegen No newline at end of file
168 ' Arbeitsblätter "Widerstandsdiagramm" und "Kraftdiagramm" festlegen
166 Set wsWiderstand = ThisWorkbook.Worksheets("Widerstandsdiagramm") No newline at end of file
169 Set wsWiderstand = ThisWorkbook.Worksheets("Widerstandsdiagramm")
167 Set wsKraft = ThisWorkbook.Worksheets("Kraftdiagramm") No newline at end of file
170 Set wsKraft = ThisWorkbook.Worksheets("Kraftdiagramm")
168 No newline at end of file
171
169 ' Diagramm auf "Kraftdiagramm" suchen No newline at end of file
172 ' Diagramm auf "Kraftdiagramm" suchen
170 If wsKraft.ChartObjects.Count = 0 Then No newline at end of file
173 If wsKraft.ChartObjects.Count = 0 Then
171 MsgBox "Kein Diagramm auf 'Kraftdiagramm' gefunden.", vbExclamation No newline at end of file
174 MsgBox "Kein Diagramm auf 'Kraftdiagramm' gefunden.", vbExclamation
172 Exit Sub No newline at end of file
175 Exit Sub
173 End If No newline at end of file
176 End If
174 No newline at end of file
177
175 Set chartObj = wsKraft.ChartObjects(1) No newline at end of file
178 Set chartObj = wsKraft.ChartObjects(1)
176 Set diagramm = chartObj.Chart No newline at end of file
179 Set diagramm = chartObj.Chart
177 No newline at end of file
180
178 ' Vorhandene Datenreihen löschen No newline at end of file
181 ' Vorhandene Datenreihen löschen
179 Do While diagramm.SeriesCollection.Count > 0 No newline at end of file
182 Do While diagramm.SeriesCollection.Count > 0
180 diagramm.SeriesCollection(1).Delete No newline at end of file
183 diagramm.SeriesCollection(1).Delete
181 Loop No newline at end of file
184 Loop
182 No newline at end of file
185
183 ' Alle Blätter vor "Widerstandsdiagramm" durchlaufen No newline at end of file
186 ' Alle Blätter vor "Widerstandsdiagramm" durchlaufen
184 For Each ws In ThisWorkbook.Worksheets No newline at end of file
187 For Each ws In ThisWorkbook.Worksheets
185 If ws.Index < wsWiderstand.Index Then No newline at end of file
188 If ws.Index < wsWiderstand.Index Then
186 ' Letzte Zeile im Blatt ermitteln No newline at end of file
189 ' Letzte Zeile im Blatt ermitteln
187 letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row No newline at end of file
190 letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
188 No newline at end of file
191
189 ' Prüfen, ob relevante Daten vorhanden sind No newline at end of file
192 ' Prüfen, ob relevante Daten vorhanden sind
190 If letzteZeile >= 3 Then No newline at end of file
193 If letzteZeile >= 3 Then
191 ' Startzeile und Anzahl der Datenblöcke definieren No newline at end of file
194 ' Startzeile und Anzahl der Datenblöcke definieren
192 startZeile = 3 No newline at end of file
195 startZeile = 3
193 blockStartSpalte = 1 ' Erste Spalte für x No newline at end of file
196 blockStartSpalte = 1 ' Erste Spalte für x
194 blockEndSpalte = 3 ' Spalten x, y1, y2 No newline at end of file
197 blockEndSpalte = 3 ' Spalten x, y1, y2
195 blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke No newline at end of file
198 blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke
196 No newline at end of file
199
197 ' Datenblöcke durchlaufen No newline at end of file
200 ' Datenblöcke durchlaufen
198 For blockIndex = 0 To blockAnzahl - 1 No newline at end of file
201 For blockIndex = 0 To blockAnzahl - 1
199 ' X-Werte und Y2-Werte für den aktuellen Block definieren No newline at end of file
202 ' X-Werte und Y2-Werte für den aktuellen Block definieren
200 With ws No newline at end of file
203 With ws
201 Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _ No newline at end of file
204 Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _
202 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X No newline at end of file
205 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X
203 Set datenBereichY2 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 2), _ No newline at end of file
206 Set datenBereichY2 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 2), _
204 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 2)) ' Spalte Y2 No newline at end of file
207 .Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 2)) ' Spalte Y2
205 No newline at end of file
208
206 ' Neue Datenreihe hinzufügen No newline at end of file
209 ' Neue Datenreihe hinzufügen
207 Set datenReihe = diagramm.SeriesCollection.NewSeries No newline at end of file
210 Set datenReihe = diagramm.SeriesCollection.NewSeries
208 datenReihe.Values = datenBereichY2 No newline at end of file
211 datenReihe.Values = datenBereichY2
209 datenReihe.XValues = datenBereichX No newline at end of file
212 datenReihe.XValues = datenBereichX
210 datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1) No newline at end of file
213 datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1)
214 datenReihe.Smooth = False No newline at end of file
211 End With No newline at end of file
215 End With
212 Next blockIndex No newline at end of file
216 Next blockIndex
213 End If No newline at end of file
217 End If
214 End If No newline at end of file
218 End If
215 Next ws No newline at end of file
219 Next ws
216 End Sub No newline at end of file
220 End Sub
217 No newline at end of file
221
Show file before | Show file after | Hide comments
1 NO CONTENT: modified file
NO CONTENT: modified file
General Comments 0
You need to be logged in to leave comments. Login now