Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zelleingaben speichern

Gruppe

Change

Problem

In der Zelle A1 werden laufend Daten aktualisiert. Damit die alten Daten nicht verlorengehen, möchte ich diese in Spalte B mit dem Erstellungsdatum in Spalte C und die Erstellungsuhrzeit in Spalte D protokollieren.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim iRow As Integer
   If Target.Address <> "$A$1" Then Exit Sub
   iRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
   If IsEmpty(Cells(1, 2)) Then iRow = 1
   Cells(iRow, 2) = Target.Value
   Cells(iRow, 3) = Date
   Cells(iRow, 4) = Time
End Sub