Kalender in datumveld

[jverkerk]

Hallo Ad, snb en HSV
Met mijn beperkte vba verstand heb ik dit er uit gekregen.
Coronas, weet niet of het voldoet, maar voor mijn doen.

 

[AD1957]

Misschien beter zo.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Columns("B")) Is Nothing Then
        Target.NumberFormat = "dddd dd mmmm yyyy;@"
        Kalender.Show
        Cancel = True
    End If
End Sub

p.s. de NumberFormat zou je ook meteen in de celeigenschappen kunnen instellen.

 

[jverkerk]

Bedankt Ad.
NumberFormat, dacht dat is handiger, vooral als het van die mensen zijn die alleen maar in hoeven te vullen.
Foutafhandeling beter niet gebruiken?

 

[AD1957]

Foutafhandeling heb je hier niet nodig.

 

[huijb]

De TS zijn we in ieder geval kwijt nu. @jverkerk zou je de volgende keer gewoon een eigen topic willen openen.

 

[jverkerk]

@huijb
Ik was verder gegaan met de vraag van TS.

Goedemorgen,

Nog geen enkel zicht op een kalendertje.

Alles geprobeert, maar geen enkele oplossing werkt. Kan iemand iets aanpassen??

Dus die werkt nu als de TS zou kijken, hij is misschien weer een borreltje drinken.

 

[huijb]

Nee je zei "Ik vind het ook een prachtig kalendertje". Maar goed je begrijpt wat ik wil zeggen.

 

[jverkerk]

Dat is waar maar in post #41 heb ik het bestandje neergezet.
Ik had het misschien anders moeten doen.

 

[snb]

TS is op herstvakantie