rechte Maustaste
06.04.2017 06:14:56
tim
kann man statt GO das Datum und Uhrzeit eingeben lassen:
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
Danke
Anzeige