Microsoft Excel

Herbers Excel/VBA-Archiv

Klick auf Zelle Datum

Betrifft: Klick auf Zelle Datum von: Tom
Geschrieben am: 20.11.2014 14:22:14

Hallo,

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

  

Betrifft: AW: Klick auf Zelle Datum von: Rudi Maintaire
Geschrieben am: 20.11.2014 14:25:31

Hallo,
lösche
If IsEmpty(Target.Cells(1, 1)) Then

Gruß
Rudi


  

Betrifft: AW: Klick auf Zelle Datum von: Tom
Geschrieben am: 20.11.2014 14:28:45

Hallo Rudi,

danke, darauf hätte ich auch selber kommen können ;-)


Gruß Tomi