In bestimmten Zelle nach Eintrag Datum

[Beltason]

Hallo Leute,

wir haben in unserem Betrieb eine Tabelle in der Kunden angelegt werden. Leider wird immer das falsche Datum eingetragen oder ganz vergessen, wann der Kunde angelegt wurde.

Das möchte ich automatisieren!

Wenn irgendein Eintrag in Zelle A1 gemacht wird soll das aktuelle Datum in E1 erscheinen und dort auch bleiben!
Das soll auf dem gesamten Tabellenblatt passieren. Nach meiner Google Recherche ist das mit VBA lösbar (für den der es auch kann)  

Weiß da jemand Rat oder hat gleich den passenden Code für mich?

LG an alle und vielen dank...

[Klaus-Dieter]

Hallo,

versuche es mal mit diesem Makro im Modul des Tabellenblattes:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Cells(Target.Row, 5) = CDate(Format(Now, "dd.mm.yyyy"))
End Sub

[MisterBurns]

@Klaus-Dieter: Da reicht doch ein simples Date, oder?

[Klaus-Dieter]

Hallo Berni,

hast recht, das kommt davon, wenn man sein Archiv nicht aktualisiert.

[Beltason]

Danke Klaus Dieter, funktioniert tadellos :18: :18: :18: