ich bitte um Hilfe für folgende Aufgabenstellung:
Wenn in einer Zeile eine oder mehrere Zellen im Bereich z.B. d1 - d9 geändert
werden, soll in d25 das aktuelle Datum geschrieben werden.
Wie lässt sich dies realisieren?
Danke für die Hilfe
Herbert
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D1:D9"), Target) Is Nothing Then
Range("D25").Value = Date
End If
End Sub
Grüßem
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D1:I9"), Target) Is Nothing _
Or Not Intersect(Range("M1:R9"), Target) Is Nothing Then
Cells(25, Target.Column).Value = Date
End If
End Sub
Bereiche, Zeilen und Spalten bitte selber anpassen.