Protokollieren
05.08.2007 22:24:00
chris58
Ich habe hier diesen genialen Code gefunden, der meinen Ansprüchen genügt. Nur eine Frage hätte ich noch: Kann man mit diesem Code auch das urspüngliche des Feldes ausgeben um einen Vegleich zu haben ?
Danke für Eure Antworten
chris
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngZeile As Long
Application.EnableEvents = False
With Worksheets("Benutzer")
lngZeile = .Range("A65536").End(xlUp).Row + 1
.Cells(lngZeile, 1).Value = Application.UserName 'Benutzer
.Cells(lngZeile, 2).Value = Date 'Datum
.Cells(lngZeile, 3).Value = Time 'Zeit
.Cells(lngZeile, 4).Value = Sh.Name 'Blattname, auf dem geändert wurde
.Cells(lngZeile, 5).Value = Target.Address 'Zelle der Änderung
.Cells(lngZeile, 6).Value = Target.Value 'neuer Eintrag
End With
Application.EnableEvents = True
End Sub