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