Kalender in datumveld

[Coronas]

Forum,

Ik zou graag een kalender in een cel hebben om daaruit een datum te kiezen en die zo te plaatsen.
Zag op Youtube een filmpje met uitleg.

Heb de ontwikkelaar in het lint aangevinkt conform de uitleg. De verdere uitleg wilde ik volgen, maar om wat voor reden (werk met een officiele 365 versie) is het icoon Ontwerpmodus niet actief als ik een werkblad open en wat er ook gebeurd, niet.

Daarnaast zie ik bij meer besturingselementen ook niet iets van Microsoft tijd datum zoals in het filmpje werd getoond.

Hoe ik ook probeer te knutselen, ik krijg in het datum veld niet voorzien van de gewenste kalender en de Ontwerpmodus zegt ook, zoek het maar uit, ik activeer mijzelf niet.

Weet iemand een oplossing.

Dank.

Coronas

 

[snb]

Welke Excel versie ?

 

[djutoch]

Zoiets?
Code te vinden onder het werkblad en de kalender en verdere code te vinden in de VBA editor.
Als er vragen zijn hoor ik het wel.

 

[Coronas]

Beste djutoch,

Dank, maar krijg een veiligheidswaarschuwing. Kan e.e.a dus niet openen.

Coronas

 

[Coronas]

SNB,

Werk met de laatste versie Excel 365.

Coronas

 

[djutoch]

Dit heeft te maken met je veiligheid instellingen te maken.
Selecteer het bestand Rechtermuisklik -> Eigenschappen Deblokkeren aanvinken.

 

[Coronas]

djutoch,

Aan de praat. Maar nu het volgende. De lege data voor de planning staan in de kolom. Ik kies een datum, cel wordt gevuld, top. Simpel kopieren (?) naar de onderliggende cel dat lukt niet, komt er een datum in te staan. Hoe fix ik als leek dat dan om de kalender te activeren in de nu nog lege cel?

Coronas

 

[popipipo]

Optisch ziet deze oplossing er mooi uit.
Ik vind echter het gewoon intikken van de datum een stuk sneller en eenvoudiger.
Bovendien werkt de 'UNDO' knop hierdoor niet meer.
Dus het werkelijke nut van deze popup zie ik (persoonlijk) niet.

 

[Coronas]

popipipo

Daar zit ook wat in. Fout bij intypen is ook weer snel gemaakt, maar dat heb je natuurlijk ook met een foute datum in de kalender. Was ook een idee om het wat "fraaier"te maken en ik was nieuwsgierig hoe dat te maken was.

Coronas

 

[djutoch]

Doe er eens een voorbeeldbestandje bij met wat dummy gegevens.

 

[Coronas]

Ga ik doen.
Coronas

 

[Coronas]

De kalende rin het datumveld zou fraai zijn.

De weg vinden in dit forumgebruik is wel even lastig by the way.

Coronas

 

[snb]

Gebruik altijd cel A1 van een werkblad.

Type eens in cel A2: 12-10 Enter

 

[djutoch]

Zo?
Ik heb van je voorbeeldje een tabel gemaakt.
Dubbelklik in kolom A van de tabel.

 

[snb]

@dju

Onjuiste code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Sheets("Blad1").ListObjects(1)
If Target.Column = 1 Then
Kalender.Show
Cancel = True
End If
End With
End Sub

moet zijn:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
  If Intersect(Target, Target.ListObject.DataBodyRange.Columns(1)) Then
    If Err.Number = 0 Then
      Kalender.Show
      Cancel = True
    End If
  End If
End Sub

Ontbrekende verwijzing naar de auteur van de kalender.

 

[Coronas]

SNB,

Ik ben een leek, waar plak ik die code?? Gaat mij even wel iets te ver

Coronas

 

[djutoch]

Ontbrekende verwijzing naar de auteur van de kalender.

Geen flauw idee wie dat is, ik verzamel al jaren interessante Stukjes Excel code, Excel voorbeeldjes. Ik sla die op met een eenvoudige titel.

 

[djutoch]

Ik ben een leek, waar plak ik die code?? Gaat mij even wel iets te ver

Ga naar je tabblad (onderaan) Rechtermuisklik, programmacode weergeven. Plak daar de code.
Neem die van SNB, is algemeen gekend als de Excel expert.

 

[Coronas]

djutoch,

Code geplaatst als door jou aangegeven, opgeslagen als xlsm bestand. Kan dubbeklillen wat ik wil maar nergens opent dat kalendertje

Heb maar een blad toegevoegd.

Coronas

 

[snb]

Kijk eens, van de auteur van de kalender zelf: