Änderungen dokumentieren - Code ändern
19.11.2008 18:31:00
Wolfgang
den nachstehenden Code entdeckte ich beim "Stöbern" im Forum. Wäre denkbar, dass der Code angepasst werden kann, um Änderungen/Eintragungen in den Spalten I,J und K zu beobachten und mit "Environ("Username"), Date" in Spalte L zu dokumentieren? - Wäre sehr dankbar für jede Rückmeldung.
Herzliche Grüße
Wolfgang
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
If Cells(8, 1) Cells(5, 1) Then
Application.EnableEvents = False
Range(Cells(6, 1), Cells(8, 1)).Insert Shift:=xlDown
Cells(8, 1) = Cells(5, 1).Value
Cells(9, 1) = Environ("username")
Cells(10, 1) = Now()
Application.EnableEvents = True
End If
End If
End Sub
Anzeige