Supportnet / Forum / Tabellenkalkulation
Excel Änderungen einer Zelle in einem Datenblatt dokumentieren
Frage
Hallo Freunde!
Ich möchte bei einer Änderung eines Zelleinhaltes, diesen neuen Wert mit Datum und Uhrzeit in einem anderen Datenblatt zeilenweise Dokumentieren.
Ist sowas überhaupt möglich?
Antwort 1 von JoeKe
Hallo Hiob,
folgender Code gehört in das VBA-Projekt des Tabellenblattes das überwacht werden soll.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Now()
End Sub
Bei Änderungen in A1 wird in Tabelle2 in die erste frei Zeile Spalte A das Datum und die Uhrzeit eingetragen.
Gruß
JöKe
folgender Code gehört in das VBA-Projekt des Tabellenblattes das überwacht werden soll.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Now()
End Sub
Bei Änderungen in A1 wird in Tabelle2 in die erste frei Zeile Spalte A das Datum und die Uhrzeit eingetragen.
Gruß
JöKe
Antwort 2 von Hiob1
Danke JöKe !
Funktion im Prinzip OK! (super so wollte ich es)
Nur kommen die Daten von einer Webabfrage, d.H. die Zelle wird nicht editiert sondern im Hintergund einfach neue Werte eingetragen, dadurch wird deine Funktion nicht aktiv.
Kann man auch den Zellinhalt neben dem Datum eintragen?
LG Hiob
Funktion im Prinzip OK! (super so wollte ich es)
Nur kommen die Daten von einer Webabfrage, d.H. die Zelle wird nicht editiert sondern im Hintergund einfach neue Werte eingetragen, dadurch wird deine Funktion nicht aktiv.
Kann man auch den Zellinhalt neben dem Datum eintragen?
LG Hiob
Antwort 3 von JoeKe
Hallo Hiob,
mit:
Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = _
Sheets("Tabelle1").Range("A1")
wird der Zellwert auf Tabelle2 Spalte B übertragen.
Zu dem anderen Problem hab ich im Moment keine Idee, da ich noch nicht mit Webabfragen gearbeitet habe.
Gruß
JöKe
mit:
Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = _
Sheets("Tabelle1").Range("A1")
wird der Zellwert auf Tabelle2 Spalte B übertragen.
Zu dem anderen Problem hab ich im Moment keine Idee, da ich noch nicht mit Webabfragen gearbeitet habe.
Gruß
JöKe
Antwort 4 von Hiob2
Danke für die schnelle und kompetente Hilfe
LG Hiob
LG Hiob