Änderungsindex
helena
habe ein kleines Problem, Code ist aus Archiv
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNew As Variant, vOld As Variant
Dim irow As Integer
If Intersect(Target, Range("A4:O80")) Is Nothing Then Exit Sub
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Application.Undo
vOld = Target.Value
Target.Value = vNew
With Worksheets("Protokoll")
irow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(irow, 1).Value = Target.Address(False, False)
.Cells(irow, 2).Value = "MA"
.Cells(irow, 3).Value = vOld
.Cells(irow, 4).Value = vNew
.Cells(irow, 5).Value = Date
.Cells(irow, 6).Value = Application.UserName
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub
möchte in Spalte 1 nicht die Adresse haben sondern denn Zellinhalt (A#)
in der geänderten Zeile
SINN und ZWECK ist ein Protokoll was hat WO/WANN geändert, durch umsortierung
oder Erweiterung stimmte Zellennummer nicht mehr aber Zellinhalt gibt aufschluss
beim welcher Person wurde geändert
Danke für Hilfe
gruss helena