Gruppe
Ereignis
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?
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