BeforeRightClick
Ernst
würde eure Hilfe benötigen.
Unten angeführter Code erfüllt seinen Zweck,wenn ich den Kalender aufrufe lässt er sich nur wieder schließen wenn ich ein Datum auswähle.
Meine Bitte an euch wäre nun wie kann man den Kalender schließen ohne ein Datum einzugeben.
Ich rufe des öfteren den Kalender auf obwohl ich das normale Kontexmenü benötigen würde.
------------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("b3:b100,e3:e100,h3:h100")) Is Nothing Then
Kalender.Show
Target.Value = Kalender.Calender.Value
Unload Kalender
End If
End Sub
------------------------------------------------------------------------------------------------------------------------
wäre für Lösungsvorschläge Dankbar.
lg.Ernst
Anzeige