Ich möchte gerne das Datum der letzten Änderung in den Zellen C4:CB1000 in der Zelle der Spalte CH der gleichen Zeile einfügen.
Beispiel: Ein Wert in einer der Zellen C4:CB4 hat sich geändert, dann soll das aktuelle Datum in Zelle CH4 eingetragen werden, aber keine der anderen Zellen der Spalte CH darf verändert werden.
Ich habe über die Suche nicht die passende Antwort gefunden, alles was ich fand Überprüft eine Zelle und schreibt das Datum in eine Zelle relativ zu der.
z.B.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z
On Error GoTo Fehler
If Not Intersect(Range("B:B"), Target) Is Nothing Then
If Target.Row = 1 Then Exit Sub
For Each z In Target
If z.Offset(0, -1) "" Then
Application.EnableEvents = False
z.Offset(0, 1) = Format(Date, "DD.MM.YYYY")
End If
Next
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Kann mir jemand helfen?Vielen Dank und Grüsse
Daniel