Блокированные ячейки VBA не изменят цвет - PullRequest
0 голосов
/ 08 ноября 2019

Я работаю над чем-то, что должно сравнивать данные. Одна часть данных предназначена только для сравнения (эта часть должна быть заблокирована), и если что-то меняется в другой части, цвет измененной ячейки должен измениться. Когда обе стороны разблокированы, все работает просто отлично. Просто когда я фиксирую одну сторону, цвет больше не меняется. Кто-нибудь знает почему?

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...