Hallo Zusammen,

ich habe schon sehr lange nicht mehr mit VBA/Makros gearbeitet, von daher sind meine Kenntnisse leider sehr lückenhaft.
Ich möchte in eine ToDo-Liste einen Kalender via Doppelklick in die entsprechende Zelle öffnen, ein Datum auswählen und das soll ich die Zelle übernommen werden.
Das funktioniert auch fast wunderbar, allerdings ist nach dem Doppelklick die Zelle aktiv und ich kann das Datum im geöffneten Kalender nicht auswählen da die aktive Zelle den Kalender sperrt.
Ich müsste dafür aus der Zelle rausgehen, die richtige Zelle wieder selektieren damit das Datum im Kalender auch auswählbar ist.

Kann mir hier jemand helfen wie ich den Fehler beheben kann, sodas der Doppelklick (im festgelegten Bereich) nur das Makro startet und nicht die Zelle aktiviert? Meine Strukturen schauen wie folgt aus:

UserForm:

Private Sub CommandButton1_Click()
ActiveCell.Value = ActiveCell.Value + 7
End Sub
Private Sub CommandButton2_Click()
ActiveCell.Value = ActiveCell.Value + 14
End Sub
Private Sub CommandButton3_Click()
ActiveCell.Value = ActiveCell.Value + 21
End Sub
Private Sub CommandButton4_Click()
ActiveCell.Value = ActiveCell.Value + 28
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = MonthView1.Value
End Sub

Modul:

Sub UserForm1show()
If Intersect(Selection, Range("R3:R999")) Then UserForm1.Show False
End Sub

Worksheet:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 18 Then UserForm1show
cancle = True
End Sub

Vielen Dank vorab!!!