Thomas Risi Softwareentwicklung

Daten in Liste archivieren

Aus einer Frage in einem Forum ...

Es soll der Inhalt der Zelle "C1" in Spalte "A" abgespeichert werden, sobald er sich ändert.


Hier ein Ansatz ...

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("C1"), Target) Is Nothing Then If Not Intersect(Cells(Rows.Count, 1).End(xlUp), Range("A1")) Is Nothing And Range("A1") = "" Then Range("A1") = Target Else Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target End If End If End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)