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

Wie nützlich finden Sie diesen Tipp?

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)