Opgelost datumkiezer laten weergeven wanneer een cel wordt geactiveerd

[Petesch2]

Goedemorgen,

Ik heb ooit eens een excel-document gezien waarbij er een mogelijkheid was om een datumkiezer weer te geven wanneer een cel werd geactiveerd door er een cijfer in te voegen. Nadien kon je gewoon een datum aanklikken en werd deze weergegeven in de cel.
Helaas vind ik dit document niet meer terug en op internet vind ik ook niet direct een antwoord op mijn vraag.

Weet iemand hoe dit zou kunnen ingesteld worden in een Excel-document? Ik werk met office 365.

Alvast bedankt voor jullie hulp!

Mvg

Peter

 

[peter59]

Kijk eens of dit je verder kan helpen.

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden

 

[snb]

Akitveer de datumkeuze met dubbelklik in een cel.

 

[Petesch2]

@peter59 bedankt voor de tip! Maar ik gebruik liever geen add-in wanneer dat mogelijk is.

@snb Is er ook een mogelijkheid dat dit enkel werkt in een bepaald bereik?

 

[edmoor]

Waarom geen add-in?
Dan werkt het voor ieder nieuw en bestaand document.

Over je vraag, het gewenste bereik kan je opgeven in de Sub achter het werkblad.
Bijvoorbeeld:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Kalender.Show
        Cancel = True
    End If
End Sub

 

[Petesch2]

Beste,

Ik wil vermijden om met add-in te werken omdat ik in een werkomgeving werk waarbij we dit zelf niet kunnen installeren Daarom zoek ik een andere oplossing. Voorlopig is het ook voor 1 document waarbij ik dit nu zou kunnen gebruiken waardoor het op dit moment ook niet noodzakelijk is dit in elk document te hebben.

De VBA-code werkt goed! Ik zou nog 1 bijkomende vraag hebben. Is er een mogelijkheid, dat wanneer je dan op een datum dubbelklikt, de kalender ook automatisch sluit?

Alvast bedankt voor het antwoord!

Mvg

Peter

 

[edmoor]

Dan kan.
Wijzig dan de Klassenmodule CL_00 in dit:

Public WithEvents v_label As MSForms.Label

Private Sub v_label_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   ActiveCell = v_label.Tag
   v_label.ForeColor = vbRed
   Kalender.Hide
End Sub

 

[snb]

Zeker kan dat:

 

[Petesch2]

Dank u wel voor jullie antwoord!
Ik kan hier zeker mee verder!

groeten

Peter

 

[xbox360]

@

snb​

Toppie, alleen is het ook mogelijk dat je ook snel de jaar kan aanpassen, dus als je nu dubbel klik meteen april 2024 ziet
maar als je daarop klikt dat je terug in de jaren kan gaan?

 

[snb]

je gaat met de scrollbar steeds 1 maand vooruit of achteruit: tot 60 maanden vóór vandaag en 60 maanden na vandaag. Gaat dat niet snel genoeg ?

 

[snb]

De scrollbar heeft geen dubbelklik-gebeurtenis.
Ik heb 2 labels toegevoegd; 1 jaar eerder en 1 jaar later.

 

[xbox360]

@

@snb​

Super werkt perfect Thnx

 

[Tech8]

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden

 

[xbox360]

@

Tech8​

Klopt maar heb liever van snb