|
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.
|