mit dem nachfolgenden Makro (aus Herbers Excel-Archiv abgeleitet) protokolliere ich Änderungen von Zellen mit. Das funktioniert auch recht gut, geht aber schief, sobald ich mehrere Zellen gleichzeitig lösche oder kopiere. Target.value ist dann ein Array und mit varValue nicht verträglich. Hat jemand eine Lösung, die auch das Ändern mehrerer Zellen gleichzeitig mitprotokolliert?
Danke für jeden Hinweis.
Hajo
Public varValue As Variant
Public strAddress As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intRow As Integer
Dim intDate As Long
If Target.Value <> varValue Then
With Worksheets("Protokoll")
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intRow, 1).Value = Target.Row
.Cells(intRow, 2).Value = Target.Column
.Cells(intRow, 3).Value = Target.Value
varValue = CStr(Target.Value)
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
varValue = ActiveCell.Value
strAddress = ActiveCell.Address
End Sub