Wenn Eingabe in bestimmter Spalte, 2 Spalten links daneben aktuelle Datum

[Beltason]

Hallo,

Wenn in der Spalte K8:K44 ein wert eingetragen wird, soll in den Zellen daneben (I8:I44) das aktuelle Datum eingetragen werden. 
Das Datum soll auch bis zur nächsten Überschreibung erhalten bleiben.

Denke mal das es ohne Makro nicht geht. Wie realiesiert man das?

Danke jetzt schon mal!

[Klaus-Dieter]

Hallo,

mit diesem Makro im Modul des Tabellenblattes geht es:

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngIsect As Range
    Set rngIsect = Application.Intersect(Target, Range("K8:K44"))
    If Not rngIsect Is Nothing Then Cells(Target.Row, 5) = Date
End Sub

[Beltason]

Hallo Claus-Dieter, vielen Dank für deine schnelle Rückmeldung.

habe den Code nach deiner Anleitung ins Modul eingebaut. Leider wird mir kein Datum angzeigt.

Lg

[RPP63]

Moin!
Dann schaue mal in Spalte 20 (aka T). 
Ändere mal die letzte Zeile des Codes auf

PHP-Code:

If Not rngIsect Is Nothing Then Target.Offset(,-2) = Date 


Gruß Ralf

[Klaus-Dieter]

Hallo,

dann hast du ein Standardmodul genommen und nicht, wie ich ausdrücklich geschrieben habe, das Modul vom Tabellenblatt. Anbei die Datei, das Makro habe ich korrigiert, da war noch ein Fehler drin.

[Beltason]

Wow...Top...so funktioniert es. Danke euch beiden. 

Ich hätte noch ein kleines Anliegen. Kann man den Code so ändern das, wenn ich die summe aus der K Spalte entferne, das das Datum sich dann auch selber löscht. Das bleibt sonst in der Zelle stehen.
Lg