AW: aktuellen Benutzer speichern
15.02.2004 20:17:54
Beni
Hallo Gerdi,
kopiere diesen Code in das Tabellenmodul in der Du die Aenderungen verfolgen möchtst mit, rechte Maustaste auf Tabellenregister / Code anzeigen und einfügen.
Füge eine Tabelle mit dem Namen "History" hinzu und blende diese aus, es werden Zelladrssen, Zeit, User und die Eintragung in dieser Tabelle registriert.
Gruss Beni
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lRow As Long
With Worksheets("History")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = Target.Address(False, False)
.Cells(lRow, 2).Value = Now
.Cells(lRow, 3).Value = Application.UserName
.Cells(lRow, 4).Value = Target.Value
End With
End Sub