Hallo zusammen,
leider bekomme ich einen Laufzeitfehler " '-2147417848(80010108)' Method 'Range' of object '_Worksheet' " failed und finde die Ursache nicht dafür:
Fehler wird immer nach einigen Minuten angezeigt, nachdem das Makro bereits mehrmals durchlaufen wurde.
Das Makro bleibt in folgender Zeile stehen und zeigt die Fehlermeldung an:
If Application.Range("BPK34").Value = "x" Then
Lässt man das Makro einzeln durchlaufen wird kein Fehler angezeigt.
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
|