Datumvermelding vanuit kalender (vba)

[Robert Smidt]

Beste Forumleden,

Sinds kort heb ik hier een leuk tooltje in Excel vanaf gehaald waar je door middel van dubbel klikken een kalender krijgt te zien en je een datum aan kunt klikken. Dit werkt prima, alleen nu wil ik dat het systeem de datum op positie L240 plaatst. Ik heb de indruk dat de kalender wel wordt geopend, maar niet zichtbaar is.

Wie zou mij hierbij willen/kunnen helpen. Het voorbeeld gaat als bijlage.

Alvast heer hartelijk dank.

Robert

 

[AccessGuru]

Met een kleine aanpassing in de Klassenmodule:

Dim tar As Range


Private Sub v_label_click()
    Set tar = Range("L240")
    tar.Value = v_label.Tag
    v_label.ForeColor = vbRed
End Sub

 

[snb]

Voldoende (zonder overbodige variabelen) is:

Private Sub v_label_click()
  cells(240,12) = v_label.Tag
  v_label.ForeColor = vbRed
End Sub

 

[Robert Smidt]

Dit werkt prima, super bedankt voor jullie reacties. :thumb: