Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Änderungen dokumentieren - Code ändern

Änderungen dokumentieren - Code ändern
19.11.2008 18:31:00
Wolfgang
Hallo,
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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungen dokumentieren - Code ändern
19.11.2008 19:43:00
Erich
Hallo Wolfgang,
probier mal

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngC As Range
If Not Intersect(Target, Columns("I:K")) Is Nothing Then
For Each rngC In Intersect(Target, Columns("I:K"))
Application.EnableEvents = False
Cells(rngC.Row, 12) = Environ("username") & Format(Date, " DD.MM.YYYY")
Application.EnableEvents = True
Next rngC
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Klappt wunderbar - Danke
19.11.2008 19:53:00
Wolfgang
Hallo Erich,
herzlichen Dank für Deine Rückmeldung; Dein Code läuft wunderbar, auch hierfür herzlichen Dank.
Gruß - Wolfgang
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige