Ich arbeite mit folgendem Code für einen Zeitstempel.
If Not Intersect(Target, Range("C:C")) Is Nothing Then
clearCell = False
With Target
Select Case .Value
Case "1"
.Offset(0, 1).Value = Format(Now, "hh:mm")
clearCell = True
End Select
If clearCell Then .Value = ""
End With
End If
habe schon einige änderungen ausprobiert damit der Zeitstrempel in einem separaten Arbeitsblatt gesetzt wird, aber es funktioniert nicht.
Ich hoffe ihr könnt mir helfen (wie schon so oft)
LG Sven