Kleiner Fehler in Worksheet_Change
27.11.2012 13:03:32
Tim
ich möchte gerne bei Änderungen der Zellinhalte eines Blattes im Bereich A2:L1000 automatisch das aktuelle Datum in Spalte P schreiben und habe dazu bislang folgenden Code-Schnipsel.
Leider funktioniert das so nicht. Kann mir jemand sagen, wo der Fehler liegt ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
If Not Intersect(Target, Range("A2:L1000")) Is Nothing Then
For Each objCell In Intersect(Target, Range("A2:L1000"))
Cells(objCell.Row, 16) = Date
Next
End If
End Sub
Tim
Anzeige