Steuerelement Kalender autom. ausblenden
30.11.2004 12:02:07
werner
vielleicht könnt ihr mir helfen:
Ich lasse in einer Spalte über das Steuerelement Kalender ein datum eintragen (nach Doppelklick auf die Zelle).
Code in Tabelle1:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 5 Then UserForm1.Show
End Sub
Code für den kalender:
Private Sub Kalender_Click()
ActiveCell.Value = Kalender
End Sub
Nachdem das Datum übernommen wurde, hätte ich gerne, dass die Userform sich automatisch schließt. Mit Userform1.hide komme ich nicht weiter - gibt es denn eine Möglichkeit?
Grüße und Danke im Voraus!
Werner
Anzeige