Messungen an PSI- und Nafion-Membranen zur Bestimmung des ...

End SubActiveChart.SeriesCollection(1).SelectWith Selection.Border.Weight = xlThin.LineStyle = xlContinuousEnd WithWith Selection.MarkerBackgroundColorIndex = xlNone.MarkerForegroundColorIndex = 1.MarkerStyle = xlCircle.Smooth = False.MarkerSize = 2.Shadow = FalseEnd WithActiveChart.PlotArea.SelectSelection.Interior.ColorIndex = xlNoneActiveChart.ChartArea.SelectActiveWindow.Visible = FalseSub Auswertung()'' Auswertung Makro' by Reto Stöckli, Open Source Code, No Copyright applied.'' Declaration of the needed VariablesDim Cycles As IntegerDim Dateiname As StringDim pressure1 As SingleDim pressure2 As SingleDim Size As SingleDim Measure_Date As StringDim New_Name As StringDim Start As IntegerDim Fin As IntegerDim i As IntegerDim Head As StringDim Min As IntegerDim Max As IntegerDim D_ln As SingleDim D_tl As SingleDim P_ln As SingleDim P_tl As SingleDim J_ln As SingleDim J_tl As SingleDim Thres_low As SingleDim Thres_high As Single' Open the .ASC raw-datafileApplication.Dialogs(xlDialogOpen).Show ("*.ASC")Dateiname = ActiveSheet.NameCycles = Range("D5").Value ' Maximum Cycle NumberMeasure_Date = Range("B2").Value' Display the setup-form to fill it outThres_low = 1 / 10Thres_high = 6 / 10Setupform.TextBox3.Value = 1Setupform.TextBox5.Value = 1013'Setupform.TextBox9.Value = Thres_low