an das Change Ereignis des Arbeitsblattes folgendes anhängen.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Rem Bsp., wenn in Spalte 2 eine Eintragung für das Datum gemacht werden soll
If Not Target.Column = 2 Then Cells(Target.Row, 2) = Date
End Sub
Gruß RALF
Ich habe versucht diesen Text in extras marcros visual Basic in Code für Tabelle 1 einzutragen aber scheinbar ist dort die falsche stelle denn es funktioniert nicht.
gruß
Heinz
in Ermangelung von Detailkenntnissen (eine Glaskugel besitze ich nicht) ist der nachstehende Code nur als Ansatz und nicht als Lösung zu verstehen.
Wenn in Zelle "A3" ein Eintrag größer Null vorgenommen wird, erscheint in der Nachbarzelle "B3" das aktuelle Tagesdatum als Festwert (nicht als Formel).
Das Makro gehört in das Tabellenblatt-Modul des entsprechenden Tabellenblattes.
Viel Erfolg wünscht
WernerB.