Sub
Prüfung_S_1()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(3, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK2"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(3, 10, 13, 14,
"BPN2"
,
"BPO2"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_2()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(33, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK3"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(33, 40, 43, 44,
"BPN3"
,
"BPO3"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_3()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(63, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK4"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(63, 70, 73, 74,
"BPN4"
,
"BPO4"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_4()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(93, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK5"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(93, 100, 103, 104,
"BPN5"
,
"BPO5"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_5()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(123, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK6"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen(123, 130, 133, 134,
"BPN6"
,
"BPO6"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_6()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(153, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK7"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(153, 160, 163, 164,
"BPN7"
,
"BPO7"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_7()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(183, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK8"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(183, 190, 193, 194,
"BPN8"
,
"BPO8"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_8()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(213, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK9"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(213, 220, 223, 224,
"BPN9"
,
"BPO9"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_9()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(243, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK10"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(243, 250, 253, 254,
"BPN10"
,
"BPO10"
)
Else
:
Call
Prüfung_1
End
If
End
With
End
Sub
Sub
Prüfung_S_10()
With
Worksheets(
"Berechnung Rampe"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(273, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK11"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_S(273, 280, 283, 284,
"BPN11"
,
"BPO11"
)
Else
:
Call
Prüfung_2
End
If
End
With
End
Sub
Sub
Prüfung_O_1()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(13743, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK460"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_O(13743, 13750, 13753, 13754)
Else
:
Call
Prüfung_2
End
If
End
With
End
Sub
Sub
Prüfung_O_2()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(13773, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK461"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_O(13773, 13780, 13783, 13784)
Else
:
Call
Prüfung_2
End
If
End
With
End
Sub
Sub
Prüfung_O_3()
With
Worksheets(
"Sheet1"
)
For
y = .Range(
"BQC1"
).Column
To
.Range(
"DTL1"
).Column
If
.Cells(13803, y).Value = 1 _
And
.Cells(1, y).Value >= .Range(
"KC2"
).Value _
And
.Cells(1, y).Value <= .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value > .Range(
"KD2"
).Value _
Then
.Cells(2, y).Value = 0
ElseIf
.Cells(1, y).Value < .Range(
"KC2"
).Value _
Then
.Cells(2, y).Value = 0
Else
.Cells(2, y).Value = 1
End
If
Next
.Range(
"BQA2"
).Value = WorksheetFunction.Sum(.Range(
"BQC2:DTL2"
))
.Range(
"BPK462"
).Value =
""
If
.Range(
"BQA2"
).Value = 0 _
Then
Call
verplanen_O(13803, 13810, 13813, 13814)
Else
:
Call
Ende
End
If
End
With
End
Sub