Я работаю над чем-то, что должно сравнивать данные. Одна часть данных предназначена только для сравнения (эта часть должна быть заблокирована), и если что-то меняется в другой части, цвет измененной ячейки должен измениться. Когда обе стороны разблокированы, все работает просто отлично. Просто когда я фиксирую одну сторону, цвет больше не меняется. Кто-нибудь знает почему?
Set rngBereich = Intersect(Target, Range("N3:N3000,P3:P3000,T3:Z3000"))
If Not rngBereich Is Nothing Then
For Each rngArea In rngBereich.Areas
For Each rngZelle In rngArea
Dim str1 As String
Dim str2 As String
str1 = rngZelle.Value
str2 = rngZelle.Offset(0, 20).Value
If str1 <> str2 Then
rngZelle.Interior.ColorIndex = 6
Else
rngZelle.Interior.ColorIndex = 0
End If
Next rngZelle
Next rngArea
End If