calender in één cel

[dirk hogendoorn]

Goedendag,

Ik heb via de zoekfunctie een calender gevonden die tevoorschijn komt door dubbel te klikken. Dit zoek ik ook, alleen wil ik dat de calender niet tevoorschijn komt als er ergens willekeurig geklikt wordt, maar alleen als er bijvoorbeeld in cel b3 geklikt wordt.

De volgende code heb ik gebruikt: weet iemand wat ik hier aan moet veranderen?
Alvast bedankt.


Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

ActiveCell.NumberFormat = "dd/mmmm/yyyy"

End Sub



Private Sub UserForm_Activate()

Me.Calendar1.Value = Date

End Sub

 

[Ron321]

Ik heb deze code achter het userform zitten:

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.
    ActiveCell.Value = Calendar1.Value
    Unload Me
End Sub

 

[dirk hogendoorn]

Ik begrijp de code wel. Hierdoor komt of de huidige datum tevoorschijn of de datum die al in de cel aanwezig is. Dit is een welkome aanvulling. Maar hoe zorg ik ervoor dat dit niet in iedere cel mogelijk is, maar alleen in een bepaalde cel, bijvoorbeeld; b3?

 

[Hoornvan]

dirk hogendoorn,

Zou die het zo doen?

Private Sub Calendar1_Click()
' Transfer date selected on calendar to active cell
' and close UserForm.
    [B3].Value = Calendar1.Value
    Unload Me
End Sub

 

[Cobbe]

Voeg deze regel als eerste tussen.

If not intersect(target,range("B3")) is nothing then

Cobbe

 

[dirk hogendoorn]

Mag ik jullie allemaal hartelijk bedanken. Het werkt.

Dank

 

[Ron321]

Ik was vergeten te vertellen dat ik achter het desbetreffende blad de volgende code heb:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("L58")) Is Nothing Then
UserForm1.Show
End If
End Sub

 

[dirk hogendoorn]

Dank je. Ik had alleen nog een klein vraagje. ik krijg nu het werkblad niet beveiligd met de 'normale' beveiligingsknop van excel, want dan werkt de macro niet meer. is hier misschien nog een oplossing voor?