Excel-Änderungsprotokoll
Max
habe bei euch folgenden Beitrag gefunden:
-------------------------------------------------
Hallo Wolfgango,
Die Eingaben werden protokolliert in Tabelle3, die man ausblenden sollte.
Makros müssen aktiv sein.
Option Explicit
Dim LoLetzte As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
_
Rows.Count) + 1
.Cells(LoLetzte, 1) = Target.Address
.Cells(LoLetzte, 2) = Target
.Cells(LoLetzte, 3) = Sh.Name
.Cells(LoLetzte, 4) = Environ("Username")
End With
Application.EnableEvents = True
End Sub
-------------------------------------------------
jetzt würde ich gerne in eine extra Spalte den Wert vor der Änderung hineinschreiben.
also quasi:
.Cells(LoLetzte, 1) = Target.Address
.Cells(LoLetzte, 2) = Target (="Wert neu")
.Cells(LoLetzte, 3) = Sh.Name
.Cells(LoLetzte, 4) = Environ("Username")
.Cells(LoLetzte, 5) = "Wert - alt"
danke im Vorhinein für eure hilfe.
Anzeige