Hallo,
ich habe mal wieder ein Problemchen.
Ich
suche ein VBA-Code, welcher Änderungen dokumentiert...wie
folgt:
Tabelle 1 - D22-D500 Überwachen und bei Änderung fortlaufen den
Inhalt (bis zum Zeichen @) der geänderten Zelle und den User in
Tabelle2 übertragen (wenn in Zelle A der Wert "Completed" gesetzt
wurde)
Finde ja folgenden Code schon ganz super, aber leider fehlen mir
die fertigkeiten :-(
Private Sub Worksheet_Change(ByVal Target As Range)
Const tCheckRange = "D22:D100" ' Dieser Bereich wird auf
Änderungen geprüft
Const lColRevDate = 10 ' In diese Spalte soll protokolliert werden:
Datum
Const lColRevName = 11 ' In diese Spalte soll protokolliert werden:
User
Const lColRevAddr = 12 ' Ab dieser Spalte soll protokolliert werden:
Zelle
Dim rC As Range
If Intersect(Target, Me.Range(tCheckRange)) Is Nothing Then Exit
Sub
Application.EnableEvents = False
For Each rC In Target.Cells
Me.Cells(rC.Row, lColRevDate) = Now()
Me.Cells(rC.Row, lColRevName) = Environ("Username")
Me.Cells(rC.Row, lColRevAddr + rC.Column - Target.Column) =
rC.Address(0, 0)
Next
Application.EnableEvents = True
End Sub
Hoffe jemand hat nen Einfall ;-)
LG Sweni