Projects/PositioningSystem Commit

- HF limts test: limits optimized

LabVIEW -

r34:35

parent child

Collapse all files

PositioningSystem [LV2021]/PositioningSystem.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_EHF1/class_EHF1.lvclass +1 -1

             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">false</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1074274832</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1082139152</Property>
             			</Item>
             		</Item>
             		<Item Name="PositioningUnit" Type="Folder">

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/Dialog_MeasureDC.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/Dialog_MeasureNetworkAnalyser.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/Dialog_ResistanceForceDistance.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/Dialog_VisualizeHFMeasurement.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/NetworkAnalyser_GetData.vi 0 0

	1	NO CONTENT: modified file			NO CONTENT: modified file

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/Test.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/TestRun_HFVisualization.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/TestRun_HFVisualization_Init.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/TestRun_HFVisualization_Limits.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/SubVIs/WriteHFToExcel.vi 0 0

NO CONTENT: modified file

PositioningSystem [LV2021]/class_PositioningSystem/class_PositioningSystem.lvclass +10 -10

             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1342972432</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1342710291</Property>
             			</Item>
             			<Item Name="RunDialog_MeasureDC.vi" Type="VI" URL="../SubVIs/RunDialog_MeasureDC.vi">
             				<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%.!!!!#!!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!&amp;"!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!*7.I;7RE9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;6&lt;GFU,GRW9WRB=X-A37Y!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1"5!0!!$!!$!!1!"!!%!!1!"!!%!!5!"A!%!!1!"!-!!(A!!!U)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3!!!!#A!!!!!!!!!!!!!!!!!!!!!"!!=!!!!!</Property>
             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             			</Item>
             			<Item Name="PositioningUnit_DisableAxes.vi" Type="VI" URL="../SubVIs/PositioningUnit_DisableAxes.vi">
             				<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!$R!!!!#!!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!$2!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!#%.M98.T)%FO!!!A1&amp;!!!Q!!!!%!!B.F=H*P=C"J&lt;C!I&lt;G]A:8*S&lt;X)J!&amp;1!]!!-!!-!"!!%!!1!"!!%!!1!"1!'!!1!"!!%!Q!!?!!!$1A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!+!!!!!!!!!!!!!!!!!!!!!!%!"Q!!!!!</Property>
             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1082139154</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1082139152</Property>
             			</Item>
             			<Item Name="PositioningUnit_GetPosition.vi" Type="VI" URL="../SubVIs/PositioningUnit_GetPosition.vi">
             				<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!'\!!!!$A!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!!N!#A!&amp;18BJ=T%!#U!+!!6"?'FT-A!,1!I!"5&amp;Y;8-T!&amp;A!]1!!!!!!!!!#(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-.9V"P=WFU;7^O,G.U&lt;!!C1&amp;!!!Q!&amp;!!9!"R"D1X6S=G6O&gt;&amp;"P=WFU;7^O!!!11#%+47&amp;O&gt;7&amp;M47^E:1!!.%"Q!"Y!!#%@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=Q!*1WRB=X-A4X6U!$2!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!#%.M98.T)%FO!!!A1&amp;!!!Q!!!!%!!B.F=H*P=C"J&lt;C!I&lt;G]A:8*S&lt;X)J!'%!]!!-!!-!"!!)!!E!"!!+!!1!#Q!-!!1!"!!%!Q!!?!!!$1A!!!!!!!!*!!!!#1!!!!!!!!!."Q!!!!!!!")!!!!+!!!!!!!!!!!!!!!!!!!.!!!!!!!)!!!!!!!!!!!"!!U!!!!!</Property>
             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             			</Item>
             			<Item Name="PositioningUnit_Init.vi" Type="VI" URL="../SubVIs/PositioningUnit_Init.vi">
             				<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%S!!!!#1!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!$2!=!!?!!!B(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-!#5.M98.T)%^V&gt;!!U1(!!(A!!)2^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T!!B$&lt;'&amp;T=S"*&lt;A!!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1"B!0!!$!!$!!1!"!!%!!1!"1!%!!9!"Q!%!!1!"!-!!(A!!!U)!!!!!!!!!!!!!!!!!!!!!!!!$1=!!!!!!!!3!!!!#A!!!!!!!!!!!!!!!!!!$1!!!!!!#!!!!!!!!!!!!1!)!!!!!!</Property>
             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             			</Item>
             		</Item>
             		<Item Name="TestRun" Type="Folder">
             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             			</Item>
             			<Item Name="TestRun_Delay.vi" Type="VI" URL="../SubVIs/TestRun_Delay.vi">
             				<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%8!!!!#1!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!#"!5!!$!!!!!1!#%W6S=G^S)'FO)#BO&lt;S"F=H*P=CE!#U!(!!25;7VF!!"0!0%!!!!!!!!!!B^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T$G.4&gt;'6Q2'6M98EO9X2M!"B!5!!"!!9+9V.U:8"%:7RB?1!!6!$Q!!Q!!Q!%!!1!"!!%!!1!"!!%!!5!"!!%!!=$!!"Y!!!.#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!I!!!!!!!!!!!!!!"!!!!!!!1!)!!!!!!</Property>
             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             			</Item>
             			<Item Name="TestRun_Measurement.vi" Type="VI" URL="../SubVIs/TestRun_Measurement.vi">
             				<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!4]!!!!-1!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!&amp;E!S`````QVB=("F&lt;G2F:#"Q982I!!Q!1!!"`````Q!%!!A!5!!"!!5!%E"!!!(`````!!9&amp;2GFM:8-!%U!$!!V-&lt;W&amp;E1XFD&lt;'5A4X6U!"&gt;!!Q!1476B=X6S:7VF&lt;H2T)%^V&gt;!!!"1!+!!!51(!!#!!"!!I!%A!!"5&amp;Y;8-T!":!1!!"`````Q!,#%&amp;Y:8.3:7:T!!!U1(!!(A!!)2^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T!!F$&lt;'&amp;T=S"0&gt;81!$E!S`````Q21982I!!!U1(!!(A!!)2^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T!!B$&lt;'&amp;T=S"*&lt;A!!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1!/1$$`````"&amp;6T:8)!!""!-0````]'6'6T&gt;%F%!!!21!-!#F2F=X2/&gt;7VC:8)!!""!-0````](1W^N&lt;76O&gt;!!21!9!#E:P=G.F4'FN;81!!"&gt;!#A!22G^S9W6-;7VJ&gt;&amp;:P&lt;(2B:W5!$U!+!!B7:7RP9WFU?1!!%U!+!!R"9W.F&lt;'6S982J&lt;WY!!!N!#A!%3G6S;Q!!%5!+!!J*&lt;GFU8U&amp;Y;8-R!!!21!I!#EFO;82@18BJ=T)!!"&amp;!#A!+37ZJ&gt;&amp;^"?'FT-Q!!'%!Q`````QZ5:8.U5H6O1W^N&lt;76O&gt;!!!9!$R!!!!!!!!!!)@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=QFD6'6T&gt;#ZD&gt;'Q!,E"1!!U!%1!3!"-!&amp;!!6!"9!&amp;Q!9!"E!'A!&lt;!"Q!(1FD6'6T&gt;%2B&gt;'%!%U!$!!R.:7&amp;T&gt;8*F&lt;76O&gt;(-!!"&amp;!!Q!+4'^B:%.Z9WRF)!!!#U!$!!6*&lt;G2F?!!31%!!!@````]!"!6';7RF=Q!)!&amp;!!!1!C!"*!1!!"`````Q!D"5:J&lt;'6T!":!5!!%!"]!)!!B!#1(2'&amp;U93"*&lt;A"&gt;!0%!!!!!!!!!!B^D&lt;'&amp;T=V^1&lt;X.J&gt;'FP&lt;GFO:V.Z=X2F&lt;3ZM&gt;G.M98.T&amp;'..&lt;X:J&lt;G&gt;198*B&lt;76U:8)O9X2M!#"!5!!$!"=!'!!:$UVP&gt;GFO:V"B=G&amp;N:82F=A!71#%2476B=X6S:6*F=WFT&gt;'&amp;O9W5!&amp;U!'!"&amp;3:8.J=X2B&lt;G.F1WBB&lt;GZF&lt;!!31#%-476B=X6S:5:P=G.F!!!91%!!!P``````````!!I'47&amp;U=GFY!!!)!$$`````!#*!1!!#``````````]!+R".982S;8B(:7ZF=G&amp;U;7^O!!!&lt;1!9!&amp;%VB&gt;(*J?%&gt;F&lt;G6S982J&lt;WZ5?8"F!!!81!9!%%RP972$;'&amp;O:W60=(2J&lt;WY!!'M!]1!!!!!!!!!#(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-59V.U:8".:7&amp;T&gt;8*F&lt;76O&gt;#ZD&gt;'Q!,E"1!!E!*A!H!#A!+1!K!"1!,!!N!#Y19V.U:8".:7&amp;T&gt;8*F&lt;76O&gt;!!!91$Q!!Q!!Q!(!!A!#1!-!!U!$A!0!"!!(A!F!#]$!!"Y!!!.#!!!#1!!!!E!!!!*!!!#%!!!!!U(!!!1!!!!%A!!!!I!!!!1!!!!%!!!!"!!!!U!!!!!!!A!!!!!!!!!!!%!-!!!!!!</Property>
             				<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             				<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             				<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            				<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            				<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             			</Item>
             			<Item Name="TestRun_RandomPosition_GetPosition.vi" Type="VI" URL="../SubVIs/TestRun_RandomPosition_GetPosition.vi">
             				<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%(!!!!#1!%!!!!%%!B#V.F&gt;&amp;"P=WFU;7^O!".!#A!-5'^T;82J&lt;WYA4X6U!!!+1#%%37ZJ&gt;!!!#5!+!!..98A!$U!+!!F%:8:J982J&lt;WY!51$R!!!!!!!!!!)@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=R&amp;F2'FT&gt;(*J9H6U;7^O,G.U&lt;!!81!9!$%2J=X2S;7*V&gt;'FP&lt;A!!%5!+!!N1&lt;X.J&gt;'FP&lt;C"*&lt;A"5!0!!$!!!!!!!!1!#!!!!!!!!!!-!"!!&amp;!!9!"Q-!!(A!!!!!!!!!!!!!#1!!!!E!!!!!!!!!!!!!!!!!!!!1!!!!%!!!!!A!!!!1!!!!%!!!!!!"!!A!!!!!</Property>
             			<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             			<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             			<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            			<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            			<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             		</Item>
             		<Item Name="ControlLearningButtons.vi" Type="VI" URL="../SubVIs/ControlLearningButtons.vi">
             			<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!)@!!!!$Q!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!!N!#A!&amp;18BJ=T%!#U!+!!6"?'FT-A!,1!I!"5&amp;Y;8-T!&amp;!!]1!!!!!!!!!#(W.M98.T8V"P=WFU;7^O;7ZH5XFT&gt;'6N,GRW9WRB=X-.9V"P=WFU;7^O,G.U&lt;!!;1&amp;!!!Q!&amp;!!9!"QB1&lt;X.J&gt;'FP&lt;A!!)%"1!!-!!!!"!!)4:8*S&lt;X)A;7YA+'ZP)'6S=G^S+1!-1#%'23V4&gt;'^Q!!!&amp;!!I!!"J!1!!#``````````]!#QF*&lt;H.F&gt;%2B&gt;'%!RA$R!!!!!!!!!!)@9WRB=X.@5'^T;82J&lt;WZJ&lt;G&gt;4?8.U:7UO&lt;(:D&lt;'&amp;T=RJF4'6B=GZJ&lt;G&gt;#&gt;82U&lt;WZT4X"U;7^O,G.U&lt;!#$1"9!#!J%;8.B9GRF17RM$52J=W&amp;C&lt;'6.&lt;X:J&lt;G='27ZB9GRF$5.I:7.L5G6M982J&gt;G5-5WBP&gt;V*F&lt;'&amp;U;8:F$%BJ:'63:7RB&gt;'FW:1N4;'^X476B=X6S:1N);72F476B=X6S:1!7:5RF98*O;7ZH1H6U&gt;'^O=U^Q&gt;'FP&lt;A!!6!$Q!!Q!!Q!%!!1!"!!%!!1!"!!)!!E!#A!-!!U$!!"Y!!!.#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!!!!I!!!!+!!!##!!!!"!!!!!!!1!/!!!!!!</Property>
             			<Property Name="NI.ClassItem.IsStaticMethod" Type="Bool">true</Property>
             			<Property Name="NI.ClassItem.MethodScope" Type="UInt">1</Property>
             			<Property Name="NI.ClassItem.Priority" Type="Int">1</Property>
-            			<Property Name="NI.ClassItem.State" Type="Int">1115685394</Property>
+            			<Property Name="NI.ClassItem.State" Type="Int">1115685392</Property>
             		</Item>
             		<Item Name="WriteForceToExcel.vi" Type="VI" URL="../SubVIs/WriteForceToExcel.vi">
             			<Property Name="NI.ClassItem.ConnectorPane" Type="Bin">)1#!!!!!!!)!"1!&amp;!!!-!%!!!@````]!!!!"!!%!!!%H!!!!$Q!-1#%'=X2B&gt;(6T!!!,1!-!"'.P:'5!!""!-0````]'=W^V=G.F!!!71&amp;!!!Q!!!!%!!AFF=H*P=C"P&gt;81!"!!!!""!-0````]'5X2S;7ZH!!!31%!!!@````]!"16/97VF=Q!A1&amp;!!!Q!!!!%!!B.F=H*P=C"J&lt;C!I&lt;G]A:8*S&lt;X)J!"*!-P````])6'6N='RB&gt;'5!!!&gt;!#A!"7!!(1!I!!6E!#A"1!!)!#1!+!""!1!!"`````Q!,!FB:!!!/1$,`````"&amp;"B&gt;'A!!&amp;1!]!!-!!-!"!!%!!1!"!!%!!9!"!!(!!A!$!!.!Q!!?!!!$1A!!!!!!!!!!!!!!!!!!!!!!!!!!!!#%!!!!!!!!!!+!!!!%!!!!B!!!!!1!!!!!!%!$A!!!!!</Property>

builds/PositioningSystem.exe 0 0

NO CONTENT: modified file

support/ReportTemplates/Macro.bas +24 -13

             '   7) Diagramme für die HF-Messung
             ' =========================================
             Sub AktualisiereXYDiagrammHF()
                 Dim datenWs As Worksheet
                 Dim diagrammWs As Worksheet
                 Dim chartObj As ChartObject
                 Application.ScreenUpdating = False
                 Application.EnableEvents = False
-                ' Für Paare 2->18, 3->19...17->33          2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17     18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
+                ' Für Paare 2->18, 3->19...17->33
                 For dataIndex = 2 To 17
                     chartIndex = dataIndex + 16
                     Set datenWs = ThisWorkbook.Worksheets(dataIndex)
                     Set diagrammWs = ThisWorkbook.Worksheets(chartIndex)
                     Set chartObj = diagrammWs.ChartObjects(1)
                     Set diagramm = chartObj.Chart
                     letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row
                     letzteSpalte = datenWs.Cells(2, datenWs.Columns.Count).End(xlToLeft).Column
                     Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1))
                     Do While diagramm.SeriesCollection.Count > 0
                         diagramm.SeriesCollection(1).Delete
                     Loop
                     For i = 2 To letzteSpalte
                         Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
                         With diagramm.SeriesCollection.NewSeries
                             .Values = yRange
                             .Smooth = False
                             .ChartType = xlXYScatterLines
                             ' --- Nur Linie, keine Punkte ---
                             .MarkerStyle = xlMarkerStyleNone
                         End With
                     Next i
                     ' ---- Farben der ersten 3 Serien fest zuweisen ----
                     If diagramm.SeriesCollection.Count >= 1 Then diagramm.SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 128, 64)
                     If diagramm.SeriesCollection.Count >= 2 Then diagramm.SeriesCollection(2).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
                     If diagramm.SeriesCollection.Count >= 3 Then diagramm.SeriesCollection(3).Format.Line.ForeColor.RGB = RGB(0, 128, 189)
+                    ' ---- Legende nur ausblenden, wenn:
+                    '      Datensatz 1 leer, Datensatz 2 leer, Datensatz 3 hat Werte ----
+                    Dim hat1 As Boolean, hat2 As Boolean, hat3 As Boolean
+                    hat1 = WorksheetFunction.CountA(datenWs.Range(datenWs.Cells(3, 2), datenWs.Cells(letzteZeile, 2))) > 0 ' Spalte B
+                    hat2 = WorksheetFunction.CountA(datenWs.Range(datenWs.Cells(3, 3), datenWs.Cells(letzteZeile, 3))) > 0 ' Spalte C
+                    hat3 = WorksheetFunction.CountA(datenWs.Range(datenWs.Cells(3, 4), datenWs.Cells(letzteZeile, 4))) > 0 ' Spalte D
+                    If (Not hat1) And (Not hat2) And hat3 Then
+                        diagramm.HasLegend = False
+                    Else
+                        diagramm.HasLegend = True
+                    End If
                 Next dataIndex
                 Application.EnableEvents = True
                 Application.ScreenUpdating = True
+            End Sub
  No newline at end of file
-            End Sub

General Comments 0

Write
Preview

You need to be logged in to leave comments. Login now

No TODOs yet

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages