Anbei das ganze Makro:
Sub Prüfung_1()
With Worksheets("Sheet1")
If .Range("BPK34").Value = "x" Then
For y = .Range("BQC1").Column To .Range("DTL1").Column
If .Cells(1, y).Value < .Range("KC2").Value Or _
.Cells(1, y).Value > .Range("KD2").Value Or _
.Cells(963, 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
Else
.Cells(2, y).Value = 1
End If
Next y
.Range("BQA2").Value = WorksheetFunction.Sum(.Range("BQC2:DTL2"))
If .Range("BQA2").Value = 0 Then
Call Ende(963, 970, 973, 974, "BPN34", "BPO34")
Else: Call Prüfung_2
End If
Else: Call Prüfung_2
End If
End With
End Sub
Kann von Euch Experten jemand einen Fehler erkennen, welchen den Laufzeitfehler auslöst?
Danke