kalender laten verschijnen bij selectie van een cel

[zanfa11]

Beste,

Momenteel moet ik dubbel klikken in een cel voordat de kalender verschijnt. Zou het mogelijk zijn om de kalender te laten verschijnen bij het selecteren van een cel?
Bekijk bijlage Kalender.xlsm

Alvast bedankt

Zanfa

 

[HSV]

Dan moet de eerste regel met....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

...beginnen.

 

[VenA]

Lijkt mij bijzonder irritant maar kan wel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10,D5,D10")) Is Nothing Then
Kalender.Show
End If
End Sub

 

[VenA]

Ik krijg nergens een foutmelding en er gebeurt verder ook helemaal niets. Dus blijkbaar de aangeboden code niet toegepast?

 

[zanfa11]

Beste

Hieronder vindt u de juiste bijlage:


Mvg

 

[Cobbe]

Werkt hij zo goed?

 

[zanfa11]

Perfect
Hartelijk dank!:thumb::d

Met vriendelijke groet,

Zanfa

 

[HSV]

Erg vreemd bij jou, het bovenste bestandje van de twee die je plaatste werkt gewoon perfect.

 

[zanfa11]

Beste HSV,

U heeft gelijk. Het werkt omdat ik de cellen een beetje aangepast heb van ("A1:B10,D5,D10")) naar ("A1,A3,A6,D5,D10")).

Mvg

 

[Nicu]

Dit is supercool, ga ik ook gebruiken, thanks!

 

[Nicu]

Ik moet dubbelklikken op de juiste dag om weer terug te gaan naar de cel, kan dit ook met enkelklikken? IK heb een wisknop aan mijn cellen hangen, die alles weer leegmaakt en ook de datumcel. Als ik nu op wissen klik, krijg ik eerst weer de kalender te zien, die moet ik wegklikken en daarna worden pas de velden gewist. Is hier nog wat aan te doen?

Groet,

Nicu

 

[Cobbe]

Post uw bestand eens.
En schrijf daarin wat er wanneer moet gebeuren of juist niet.

 

[Nicu]

Hi Cobbe,

Ik heb hem toegevoegd, hoop dat dit mogelijk is.

 

[Cobbe]

Ik heb hem voor u aangepast maar zonder garantie hé.

 

[Nicu]

Helemaal goed, dit werkt veel beter en het wissen gaat ook prima. Bedankt Cobbe!