Vielen Dank.
Durch verschiedene Änderungen konnte ich das Problem im Makro weiter konkretisieren.
Wie du geschrieben hast liegt das Problem sehr wahrscheinlich in diesen Abschnitt:
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(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
Else
.Cells(2, y).Value = 1
End If
Next
Die erste IF Formel wurde in ein eigenes Makro geschrieben, die gleiche Fehlermeldung kommt weiterhin nach ca. 7 Minuten und jetzt wird dieser Abschnitt in gelb gekennzeichnet.
Ich werde die Änderungen vornehmen und einen erneuten Durchlauf durchführen.
|