Datum selecteren aan de hand van kalender Zonder acces (Excel 2010)

[bakkerbg]

Beste Mensen,

Ik heb mn best gedaan om het op te vinden op het forum, maar kon het niet vinden.

Ik ben namelijk opzoek naar een oplossing wanneer ik op een bepaald hokje klik er een kalender te voorschijn komt waar ik een datum uit kan selecteren. Dit moet ik kunnen gebruiken zonder Acces!

Mijn dank is groot!

Met vriendelijke groet,

Jeroen Bakker

 

[Niels28]

Hierbij een bestandje met calender.
De calender is gemaakt door Danny47, ik heb hem een beetje aangepast
en verlofdagen toegevoegd.

dubbel klik in D4 om de calender op te roepen.

Bekijk bijlage Calender.xlsm

Niels

 

[bakkerbg]

Dankje Niels! Hij werkt perfect!

Hierbij een bestandje met calender.
De calender is gemaakt door Danny47, ik heb hem een beetje aangepast
en verlofdagen toegevoegd.

dubbel klik in D4 om de calender op te roepen.

Bekijk bijlage 155079

Niels

 

[Warme bakkertje]

Als je in de BeforeDoubleClick-macro onderstaande regel toevoegt dan blijft de cursor niet in de cel steken(de cel wordt ahw niet rechtstreeks geselecteerd bij het dubbelklikken)

Cancel = True

 

[Niels28]

@Warme bakkertje

Dank je weer wat geleerd.
had het wat primitiever opgelost met in de userform:

ActiveCell.Offset(0, 1).Activate

Niels

 

[bakkerbg]

En is het ook mogelijk om van de dubbele klik een enkele te maken??

 

[Niels28]

verander de code achter blad1, de eerste regel moet dan worden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Niels

 

[bakkerbg]

Probleem!!: Als ik de kalender in een hokje op bijvoorbeeld rij 150 naar voren wil laten komen, is hij niet zichtbaar. Waarschijnlijk is hij ergens anders gepositioneerd waar je hem niet kan zien. De vraag is nu; wat moet ik in de code veranderen om deze toch zichtbaar te maken.

 

[Warme bakkertje]

Deze zou het moeten doen bij standaard rijhoogte en kolombreedte (waar je dit fenomeen ook gaat krijgen)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        LeftPos = IIf(.Left < 1000, .Left, 1000)
        Wdth = .Width
        TopPos = IIf(.Top < 500, .Top, ActiveSheet.Cells(1, 1).Top + 100)
    End With
    Kalender.Left = LeftPos + Wdth
    Kalender.Top = TopPos
    Kalender.Show
End Sub

 

[bakkerbg]

Dank voor je reactie bakkertje. Is er niet ook de mogelijkheid om de kalender precies naast het vakje dat je selecteert te laten verschijnen??

 

[Niels28]

zie bijlage

Bekijk bijlage Calender(1).xlsm

Niels

 

[JLameir]

Een vraagje, Ik wil de kalender ook gebruiken. Ik wil hem doorvoeren in mijn bestaande bestand, maar hoe doe ik dit dan?
Gr. Ehrine

Hierbij een bestandje met calender.
De calender is gemaakt door Danny47, ik heb hem een beetje aangepast
en verlofdagen toegevoegd.

dubbel klik in D4 om de calender op te roepen.

Bekijk bijlage 155079

Niels