Wenn Wert aktualisiert wird eine Zeile tiefer copy
27.06.2004 07:39:15
Oliver S.
die schon wach sind. Ich brauche so früh mal einen Denkanstoß. Ich habe in Zelle A1 einen sich ständig ändernden Wert. Den möchte ich archivieren. Jetzt dachte ich mir, dass ich in einem Change Ereignis des Tabellenblatts, eine Anweisung einbaue, die mir den Wert aus Zelle A1 immer wenn der sich aktualiesiert hat in die nächste freie Zelle in Spalte A kopiert. Das funktioniert leider nicht so ganz. Es wird zwar der Wert kopiert und auch eingefügt, das ganze aber 242 mal, d.h. in den nächsten 242 Zellen steht ein und der selbe Wert. So dachte ich mir das aber nicht. Hat jemand eine Idee, wie ich immer eine Zeile tiefer den Wert kopieren kann?
Hier noch der Code, so wie ich mir das dachte.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
erste_leere_Zeile = Range("A43200").End(xlUp).Offset(1, 0).Row
Cells(1, 1).Copy Cells(erste_leere_Zeile, 1)
End Sub
Bin für jede Hilfe dankbar.
Gruß,
Oliver