Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Änderungsdatum eintragen

Gruppe

Change

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