Gruppe
Ereignis
Bereich
Change
Thema
Änderungsdatum eintragen
Problem
Ich möchte in Spalte AA bei jeder Änderung im Tabellenblatt das Datum der Änderung und den jweiligen Anwendernamen eintragen lassen. Wie mache ich das?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
If Target.Column = 1 Then Exit Sub
If IsEmpty(Range("A1")) Then
iRow = 1
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Cells(iRow, 1) = "Geändert von " & _
Application.UserName & _
" am " & _
Format(Now, "dd.mm.yy - hh:mm:ss")
End Sub