Die Änderungen wurden durchgeführt.

Leider besteht das gleiche Problem weiterhin, immer zur selben Zeit nach 7min10sek.

Seit der Änderung bleibt er jetzt immer hier stehen:

Sub Prüfung_1()

With Worksheets("Sheet1")

If .Range("BPK2").Value = "x" _
Then
Call Prüfung_1
ElseIf .Range("BPK3").Value = "x" _
Then
Call Prüfung_2
ElseIf .Range("BPK4").Value = "x" _
Then
Call Prüfung_3
ElseIf .Range("BPK5").Value = "x" _
Then
Call Prüfung_4
ElseIf .Range("BPK6").Value = "x" _
Then
Call Prüfung_5
ElseIf .Range("BPK7").Value = "x" _
Then
Call Prüfung_6
ElseIf .Range("BPK8").Value = "x" _
Then
Call Prüfung_7
ElseIf .Range("BPK9").Value = "x" _
Then
Call Prüfung_8
ElseIf .Range("BPK10").Value = "x" _
Then
Call Prüfung_9
ElseIf .Range("BPK11").Value = "x" _
Then
Call Prüfung_10
ElseIf .Range("BPK12").Value = "x" _
Then
Call Prüfung_11
ElseIf .Range("BPK13").Value = "x" _
Then
Call Prüfung_12
ElseIf .Range("BPK14").Value = "x" _
Then
Call Prüfung_13
ElseIf .Range("BPK15").Value = "x" _
Then
Call Prüfung_14
ElseIf .Range("BPK16").Value = "x" _
Then
Call Prüfung_15
ElseIf .Range("BPK17").Value = "x" _
Then
Call Prüfung_16
ElseIf .Range("BPK18").Value = "x" _
Then
Call Prüfung_17
ElseIf .Range("BPK19").Value = "x" _
Then
Call Prüfung_18
ElseIf .Range("BPK20").Value = "x" _
Then
Call Prüfung_19
ElseIf .Range("BPK21").Value = "x" _
Then
Call Prüfung_20
ElseIf .Range("BPK22").Value = "x" _
Then
Call Prüfung_21
ElseIf .Range("BPK23").Value = "x" _
Then
Call Prüfung_22
ElseIf .Range("BPK24").Value = "x" _
Then
Call Prüfung_23
ElseIf .Range("BPK25").Value = "x" _
Then
Call Prüfung_24
ElseIf .Range("BPK26").Value = "x" _
Then
Call Prüfung_25
ElseIf .Range("BPK27").Value = "x" _
Then
Call Prüfung_26
ElseIf .Range("BPK28").Value = "x" _
Then
Call Prüfung_27
ElseIf .Range("BPK29").Value = "x" _
Then
Call Prüfung_28
ElseIf .Range("BPK30").Value = "x" _
Then
Call Prüfung_29
ElseIf .Range("BPK31").Value = "x" _
Then
Call Prüfung_30
ElseIf .Range("BPK32").Value = "x" _
Then
Call Prüfung_31
ElseIf .Range("BPK33").Value = "x" _
Then
Call Prüfung_32
ElseIf .Range("BPK34").Value = "x" _
Then
Call Prüfung_33
ElseIf .Range("BPK35").Value = "x" _
Then
Call Prüfung_34
ElseIf .Range("BPK36").Value = "x" _
Then
Call Prüfung_35
ElseIf .Range("BPK37").Value = "x" _
Then
Call Prüfung_36
ElseIf .Range("BPK38").Value = "x" _
Then
Call Prüfung_37
ElseIf .Range("BPK39").Value = "x" _
Then
Call Prüfung_38
ElseIf .Range("BPK40").Value = "x" _
Then
Call Prüfung_39
ElseIf .Range("BPK41").Value = "x" _
Then
Call Prüfung_40
ElseIf .Range("BPK42").Value = "x" _
Then
Call Prüfung_41
ElseIf .Range("BPK43").Value = "x" _
Then
Call Prüfung_42
ElseIf .Range("BPK44").Value = "x" _
Then
Call Prüfung_43
ElseIf .Range("BPK45").Value = "x" _
Then
Call Prüfung_44
ElseIf .Range("BPK46").Value = "x" _
Then
Call Prüfung_45
ElseIf .Range("BPK47").Value = "x" _
Then
Call Prüfung_46
ElseIf .Range("BPK48").Value = "x" _
Then
Call Prüfung_47
ElseIf .Range("BPK49").Value = "x" _
Then
Call Prüfung_48
ElseIf .Range("BPK50").Value = "x" _
Then
Call Prüfung_49
ElseIf .Range("BPK51").Value = "x" _
Then
Call Prüfung_50
Else:
Call Prüfung_2
End If

End With

End Sub

Hat jemand eine Idee, was hier zum Abbruch führen könnte?

Liegt vielleicht ein anderes Problem vor, weil er ja immer zur selben Zeit stehen bleibt?