rechte Maustaste

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A2:A20000"), Target) Is Nothing And _
Not Target.Cells.Count > 1 Then
If Target.Value = "GO" Then   ' hier Datum und Uhrzeit
Target.Value = ""
Else: Target.Value = "GO"
End If
End If
End Sub