danke schonmal
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).Value = Now()
End If
Next z
End If
End Sub
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).Value = Now()
End If
Next z
End If
End Sub
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