Worksheet_Change несколько изменений

Question

У меня следующий вопрос. Я получаю сообщение об ошибке, если удаляю несколько ячеек или выполняю редактирование выделения для нескольких ячеек. Мой код выглядит следующим образом:

    Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Value <> PreviousValue Then
    Sheets("log").Cells(80000, 1).End(xlUp).Offset(1, 0).Value = _
        Application.UserName & " heeft cel " & Target.Address _
        & " from " & PreviousValue & " to " & Target.Value & 
    End If

End Sub

Что я делаю не так?

Answer 1

Если Target - это диапазон из нескольких ячеек, то сравнение Target.Value <> PreviousValue не удастся (тогда Target.Value - это двумерный массив).

Используйте al oop для сравнения каждой отдельной ячейки:

Dim rng as Range
For Each rng in Target
     If rng.Value <> PreviousValue Then