|
habe folgendes Problem:
ich will das das aktuelle datum angezeigt wird wenn sich eine von mehreren Zellen ändert.
mit diesem Code schaffe ich es nur anzuzeigen wenn sich eine Zelle ändert.
-----------------------------------------------------------------------------------------------------------------------
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowUp As Integer, rowDown As Integer, colValue As Integer, colDate As Integer, rngValue As Range
rowUp = 3
rowDown = 81
colValue = 4
colDate = 3
Set rngValue = Range(Cells(rowUp, colValue), Cells(rowDown, colValue))
If Not Intersect(Target, rngValue) Is Nothing Then Cells(Target.Row, colDate) = Now
End Sub
-------------------------------------------------------------------------------------------------------------------------------
Bitte um Hilfe
LG
|