Private
Sub
CommandButton1_Click()
Dim
t
As
Integer
Dim
dt, min_theta, max_theta, min_q, max_q, min_theta_neu, max_theta_neu, min_q_neu, max_q_neu
As
Single
Dim
min_theta_runden, max_theta_runden, min_q_runden, max_q_runden
As
Integer
t = 0
dt = Cells(8, 26)
Cells(2, 34) = t
For
t = 0
To
24 / dt
Cells(2, 34) = t * dt
min_theta = Application.Min(Range(
"AK:AK"
))
max_theta = Application.Max(Range(
"AK:AK"
))
min_q = Application.Min(Range(
"AL:AL"
))
max_q = Application.Max(Range(
"AL:AL"
))
If
min_theta < min_theta_neu
Then
min_theta_neu = min_theta
End
If
If
max_theta > max_theta_neu
Then
max_theta_neu = max_theta
End
If
If
min_q < min_q_neu
Then
min_q_neu = min_q
End
If
If
max_q > max_q_neu
Then
max_q_neu = max_q
End
If
Next
If
min_theta_neu > 0
Then
min_theta_runden = Application.WorksheetFunction.RoundDown(min_theta_neu / 5, 0) * 5
Else
min_theta_runden = Application.WorksheetFunction.RoundUp(min_theta_neu / 5, 0) * 5
End
If
If
max_theta_neu > 0
Then
max_theta_runden = Application.WorksheetFunction.RoundUp(max_theta_neu / 5, 0) * 5
Else
max_theta_runden = Application.WorksheetFunction.RoundDown(max_theta_neu / 5, 0) * 5
End
If
If
min_q_neu > 0
Then
min_q_runden = Application.WorksheetFunction.RoundDown(min_q_neu, -1)
Else
min_q_runden = Application.WorksheetFunction.RoundUp(min_q_neu, -1)
End
If
If
max_q_neu > 0
Then
max_q_runden = Application.WorksheetFunction.RoundUp(max_q_neu, -1)
Else
max_q_runden = Application.WorksheetFunction.RoundDown(max_q_neu, -1)
End
If
Cells(1, 1) = min_theta_neu
Cells(2, 1) = max_theta_runden
Cells(3, 1) = min_q_runden
Cells(4, 1) = max_q_runden
ActiveSheet.ChartObjects(
"Diagramm 1"
).Activate
ActiveChart.Axes(xlValue).MinimumScale = min_theta_runden
ActiveChart.Axes(xlValue).MaximumScale = max_theta_runden
ActiveChart.Axes(xlCategory).MaximumScale = Range(
"AD57"
)
ActiveSheet.ChartObjects(
"Diagramm 2"
).Activate
ActiveChart.Axes(xlValue).MinimumScale = min_q_runden
ActiveChart.Axes(xlValue).MaximumScale = max_q_runden
ActiveChart.Axes(xlCategory).MaximumScale = Range(
"AD57"
)
t = 0
For
t = 0
To
24 / dt
Cells(2, 34) = t * dt
ActiveSheet.ChartObjects(
"Diagramm 1"
).Activate
ActiveSheet.ChartObjects(
"Diagramm 2"
).Activate
Application.Wait (Now + TimeSerial(0, 0, 1))
Next
Cells(2, 34) = 0
End
Sub