VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zelleingaben speichern

Gruppe

Ereignis

Bereich

Change

Thema

Zelleingaben speichern

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change