habe mal wieder ein Problem:
Bei Doppelklick auf C5 oder D5 soll das Kalender-Steuerelement erscheinen, das ausgewählte Datum in die aktive Zelle übernommen und das Kalender-Steuerelement wieder geschlossen werden.
Vor einiger Zeit habe ich dazu aus dem Forum Hilfe bekommen und diese wie folgt umgesetzt:
- Userform1 enthält das Kalender-Steuerelement(Calendar1)
- im Code-Modul der Userform steht:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
UserForm1.Hide
End Sub
- im Code-Modul der Tabelle steht:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
If Target.Address = "$C$5" Or Target.Address = "$D$5" Then
UserForm1.Show
End If
End Sub
Bei Ausführung kommt die Meldung "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht."
Frage: was habe ich falsch gemacht und wer kann mir helfen ?
Besten Dank im voraus.
Basti