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