Sub Prüfung_1()
With Worksheets("Sheet1")
If Application.Range("BPK2").Value = "x" Then
For y = Application.Range("BQC1").Column To Application.Range("DTL1").Column
If Application.Cells(1, y).Value < Application.Range("KC2").Value Or _
Application.Cells(1, y).Value > Application.Range("KD2").Value Or _
Application.Cells(3, y).Value = 1 _
And Application.Cells(1, y).Value >= Application.Range("KC2").Value _
And Application.Cells(1, y).Value <= Application.Range("KD2").Value _
Then
Application.Cells(2, y).Value = 0
Else
Application.Cells(2, y).Value = 1
End If
Next
Application.Range("BQA2").Value = WorksheetFunction.Sum(Application.Range("BQC2:DTL2"))
If Application.Range("BQA2").Value = 0 Then
Call Ende(3, 10, 13, 14, "BPN2", "BPO2")
Else: Call Prüfung_2
End If
Else: Call Prüfung_2
End If
End With
End Sub