Datum bei Zellwertänderung
09.03.2005 13:30:54
Harald
da sich die Recherche bei mir nach 1 Sekunde ausblendet (warum auch immer),
komm ich nur per neuem Beitrag weiter.
Mit unten stehendem Code (Danke Hajo) wird in Spalte C das Datum eingetragen, sobald in Spalte D eine Eingabe erfolgt. Das funktioniert nicht, wenn in Spalte D ein Formelergebnis steht (z.B. =Tabelle2!AJ16) und dort eine Änderung erfolgt.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("D:D")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -1) = Date
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Es soll also in Spalte C das Datum eingetragen werden, sobald sich der Wert in D ändert. Egal wie der Wert dort geändert wird.
Ich weiß, es steht in der Recherche. Aber wie gesagt...1 Sekunde...und wech.
Vielen Dank schonmal für Tipps
Harald