Ergänzung, falls von Interesse...
20.03.2015 12:27:30
Interesse...
Hallo Hartmut, Hallo Matthias,
Falls evtl. von Interesse hier eine Variante von mir: Zwei Arbeitsblatt-Ereignisse kombiniert, um das Eintragen bzw. ggf. Aktualisieren des Datums in Spalte O wirklich nur dann auszulösen, wenn tatsächlich ein "neuer Wert" eingegeben wurde.
Dachte mir das ist ggf. bei Verwendung von Gültigkeitsüberprüfung ganz praktisch - d.h. in die Zelle klicken und in (bspw.) einer Liste den gleichen Wert wie zuvor wählen, aktualisiert/schreibt das Datum nicht in Spalte O - ein neuer Wert aus der Gültigkeitsliste allerdings sehr wohl.
Vielleicht kannst Du's ja brauchen Hartmut:
Public AlterWert As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("N1:N200"), Target) Is Nothing _
And Target.Count = 1 Then
If Not Target.Value = AlterWert Then
Target.Offset(0, 1).Value = Date
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("N1:N200"), Target) Is Nothing _
And Target.Count = 1 Then
AlterWert = Target.Value
End If
End Sub
LG und schönes Wochenende
Michael