Klick auf Zelle Datum
20.11.2014 14:22:14
Tom
mit dem folgenden Code wird mit Rechtsklick das heutige Datum in die aktive Zelle geschrieben. Wenn ich aber z.B. morgen erneut in eine beschriebene Zelle Klicke um das Datum auf den neuen Stand zu bringen, passiert nichts. Wie muss der Code angepasst werden, damit ich auch in der beschriebene Zelle eine Aktualisierung erhalte?
Gruß Tom
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(Target.Cells(1, 1)) Then Target.Cells(1, 1) = Date
Application.EnableEvents = True
Cancel = True
End If
End Sub