ich habe neulich in meine Datei einen Code eingefügt, der jegliche Änderung in ein separates Tabellenblatt schreibt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value PreviousValue Then
Sheets("Mielke").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
Application.UserName & " changed cell " & Target.Address _
& " from " & PreviousValue & " To " & Target.Value
End If
End Sub
Leider erhalte ich nun immer eine Typen unverträglich Fehler, wenn ich mehrere Zellen gemeinsam verschieben möchte. Kann mir jemand bei diesem Problem helfen bzw. liegt es vllt. daran, dass im Code nur ein Wert angesprochen wird?
Besten Dank