Calender_click() werkt niet

[wimven]

Hallo,

Ik heb een erg simpel statement staan en uit de maandkalender moet een dag gekozen worden:

Private Sub Calendar1_Click()

End Sub


Het probleem is alleen dat het aanklikken vaak niet lukt, dan staat ie geblokkeerd. Zoals ik het nu getest heb heeft dat te maken met het gebruik van een combobox:

Private Sub ComboBox3_Change()

End Sub

Zolang ik die combobox3 niet gebruik is er niets aan de hand.
Als ik dan Excel helemaal afsluit en opnieuw open kan ik de kalenderfunctie weer aanroepen, ook als het bestand opgeslagen is met de gewijzigde combobox.
Herkent iemand dit probleem en zijn er tips?

Ik werk met office 2000 pro.

Alvast mijn dank.

 

[wimven]

Niemand?

Op het forum kwam ik wel kalendertjes tegen maar die werden dan geactiveerd in iedere willekeurige cel waar je klikte en de datum werd dan ook in die cel gezet. Ik wilde het juist in 2 bepaalde cellen zetten.
Na wat zoeken belandde ik op de site van Martin Green. Daar vond ik de oplossing voor mijn probleempje en heb de oude kalender vervangen door onderstaande. Nu werkt het wel goed. Ik vraag me alleen af of de onderste regels waar de datum in de 2 active cells geplaatst worden niet vervangen kunnen worden door 1 regel.

Option Explicit

' ===================================================
' Code by Martin Green eMail martin@fontstuff.com
' Visit my Office Tips web site at www.fontstuff.com
' ===================================================

Private Sub cmdClose_Click()
' Close the UserForm
Unload Me
End Sub

Private Sub UserForm_Initialize()
' Check if active cell contains a date. If 'yes' show
' same date on calendar. If 'no' show today's date.
If IsDate(ActiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Date
End If
End Sub

Private Sub Calendar1_Click()
' Transfer date selected on calendar to active cell
' and close UserForm.
ActiveSheet.Cells(39, 9) = Calendar1.Value
ActiveSheet.Cells(60, 2) = Calendar1.Value
Unload Me
End Sub

 

[Warme bakkertje]

Union([B60], [I39]) = Calendar1.Value

 

[wimven]

Dank je Rudi!
Weer één afgehandeld.

Wim