Automatisches Datum/Uhrzeit
19.11.2004 11:59:07
Frank
ich habe folgendes Problem:
in einer Arbeitszeiterfassung möchte ich sehen, wann Daten geändert/eingegeben werden.
Dazu habe ich folgendes Script leider nur für eine Spalte gefunden:
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("D4:D1000"))
If isect Is Nothing Then
Exit Sub
Else
With Target.Cells(1).Offset(0, 9)
.Value = Format(Now, "dd/ mmm yy hh:mm")
End With
End If
End Sub
Die selbe Funktion sollte aber auch für die Spalte "E" und "F" Anwendung finden.
Wie müsste dann das Script aussehen.
Danke schon im Voraus.
Gruß
Frank
Anzeige