AW: Sekunden anzeigen mit JETZT()
09.06.2005 15:28:45
WernerB.
Hallo Sebastian,
wie gefällt Dir das?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, b As Range
Set b = Intersect(Target, Range("B:B"))
If Not b Is Nothing Then
For Each z In b
If z.Value <> 0 Then
b.Offset(0, -1).NumberFormat = "dd/mm/yyyy hh:mm:ss"
b.Offset(0, -1).Value = Now()
End If
Next z
End If
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !