Datum+Zeit speichern wenn zelle geändert
06.08.2014 11:47:11
Daniel
und zwar möchte ich wenn ich in einem Bereich etwas ändere,
also eine Zelle das aktuelle Datum und Zeit in der Spalte xy eingetragen wird.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B50:B1000"), Target) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Date
End Sub
Dieses Beispiel würde mir schon reichen, aber statt es immer eine Spalte weiter rechts einzutragen möchte ich es in einer bestimmten Spalte geändert haben.
Hier ein Beispiel:
Ich ändere Zelle A4 und in G4 soll nun der aktuelle Zeitpunkt eingetragen werden.
Jetzt ändere ich B4 und in G4 soll nun der aktuelle Zeitpunkt eingetragen werden.
Zelle A1 ändere ich und in G1 soll nun der aktuelle Zeitpunkt eingetragen werden.
Hier die Tabelle: http://puu.sh/aGTct/3f82fb3e4d.png
Wäre überaus dankbar, wenn mir jmd. helfen könnte.
mfg