Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Re: Hoe kan ik een datum/kalender invoegen in Excel (keuzelijst)

5,824 views
Skip to first unread message

Dodo

unread,
Sep 21, 2005, 2:26:37 PM9/21/05
to
"=?Utf-8?B?SGFucw==?=" <Ha...@discussions.microsoft.com> wrote in
news:B007AA96-C3C5-4385...@microsoft.com:

> Ik wil in Excel een keuzelijst invoegen waar de datum aangegeven kan
> worden, kan iemand mij vertellen hoe dit mogelijk is. (Dus als ik op
> een pijltje langs de cel klik dat ik dan een kalender krijg te zien
> waarop ik een datum aan kan klikken zodat die datum in de cel
> verschijnt.)
>

Ik heb een knopje in een tool bar geplaatst met daarachter code. Daarmee
roep je een kalender op en door op een datum te klikken, wordt die datum in
de eerder geselecteerde cel geplaatst.

Volgens deze aanwijzingen:

http://www.windowsdevcenter.com/pub/a/windows/2004/04/27/excelhacks.html

Werkt prima!


--

It is I, DeauDeau
(Free after monsieur Leclerc in 'Allo, 'allo)

Johan de Jong

unread,
Sep 21, 2005, 4:11:03 PM9/21/05
to
Dodo,

Ik ben naar het zelfde op zoek en heb je tip gelezen, heb de
aanwijzingen op gevolgd, maar is volgens mij niet helemaal volledig.
Ik krijg de userform wel in VBA maar hoe roep ik deze nou op in mijn
werk blad???
Moet ik hem aan een cel toewijzen? Hoe werkt zo iets..

Ben niet zo thuis in userforms...

Kun je nog een tipje van de sluier op lichten???

Johan

Dodo

unread,
Sep 22, 2005, 5:14:27 PM9/22/05
to
Johan de Jong <johan....@quicknet.nl> wrote in
news:d112e$4331bde8$52d9468b$11...@cache30.multikabel.net:

> Ik ben naar het zelfde op zoek en heb je tip gelezen, heb de
> aanwijzingen op gevolgd, maar is volgens mij niet helemaal volledig.
> Ik krijg de userform wel in VBA maar hoe roep ik deze nou op in mijn
> werk blad???
> Moet ik hem aan een cel toewijzen? Hoe werkt zo iets..
>
> Ben niet zo thuis in userforms...
>
> Kun je nog een tipje van de sluier op lichten???
>

>>>Ik wil in Excel een keuzelijst invoegen waar de datum aangegeven kan
>>>worden, kan iemand mij vertellen hoe dit mogelijk is. (Dus als ik op
>>>een pijltje langs de cel klik dat ik dan een kalender krijg te zien
>>>waarop ik een datum aan kan klikken zodat die datum in de cel
>>>verschijnt.)
>>>
>>
>>
>> Ik heb een knopje in een tool bar geplaatst met daarachter code.
>> Daarmee roep je een kalender op en door op een datum te klikken,
>> wordt die datum in de eerder geselecteerde cel geplaatst.
>>
>> Volgens deze aanwijzingen:
>>
>> http://www.windowsdevcenter.com/pub/a/windows/2004/04/27/excelhacks.ht
>> ml
>>
>> Werkt prima!

Ik heb in mijn persnlk.xls een knopje geplaatst in een werkbalk.
Via een rechtsklik in het gedeelte waar de werkbalken staan, Aanpassen, tab
Opdrachten, Macro's en een Aangepaste knop (dat lachebekje) naar een
werkbalk gesleept.

Daaraan is de macro/sub "ShowIt" gehangen, die je eerder hebt gemaakt.
Via rechtsklikken op die nieuwe knop, Macro toewijzen en ShowIt kiezen.
Je kunt de hover tekst (Naam:) van die knop (nu nog: &Aangepaste knop)
wijzigen naar b.v. Kalender en het beeld veranderen via Knopvlak wijzigen.
Als dit allemaal is gebeurd, dan venster Aanpassen weer sluiten.

Ik heb dit dus niet aan een shortcut key gehangen zoals hier werd
omschreven:

Finally, go to Tools > Macro > Macros (Alt+F8) and then select ShowIt,
click Options, assign a shortcut key, and you're done.

Het userform is gemaakt volgens de aanwijzingen. Dat userform is jou wel
gelukt?

Johan de Jong

unread,
Sep 23, 2005, 5:45:37 AM9/23/05
to

Dodo

Zou jij die macro show it willen posten, ik denk dat ik er dan wel uit
kom....

B.v.D

Johan

Dodo

unread,
Sep 23, 2005, 3:21:36 PM9/23/05
to
Johan de Jong <johan....@quicknet.nl> wrote in
news:e22de$4333ce3d$52d9468b$20...@cache10.multikabel.net:

> Zou jij die macro show it willen posten, ik denk dat ik er dan wel uit
> kom....
>

>>>Ik wil in Excel een keuzelijst invoegen waar de datum aangegeven kan
>>>worden, kan iemand mij vertellen hoe dit mogelijk is. (Dus als ik op
>>>een pijltje langs de cel klik dat ik dan een kalender krijg te zien
>>>waarop ik een datum aan kan klikken zodat die datum in de cel
>>>verschijnt.)
>>>
>>
>>
>> Ik heb een knopje in een tool bar geplaatst met daarachter code.
>> Daarmee roep je een kalender op en door op een datum te klikken,
>> wordt die datum in de eerder geselecteerde cel geplaatst.
>>
>> Volgens deze aanwijzingen:
>>
>> http://www.windowsdevcenter.com/pub/a/windows/2004/04/27/excelhacks.ht
>> ml
>>
>> Werkt prima!
>>

Dit staat in die link (staat nog hierboven) die ik je had gegeven:

Now go to Insert > Module and in this Public Module place this code:

Sub ShowIt()
UserForm1.Show
End Sub

Johan de Jong

unread,
Sep 24, 2005, 8:42:15 AM9/24/05
to
Dodo,

De userform werkt nu goed, nog een vraagje,

Als ik op de agenda klik verschijnt de waarde niet in de geselecteerde cel.

Het is bijna voor elkaar.... heb ik iets verkeerd gedaan??

De onderstaande link gaf bij mij een error.....

Johan

Dodo

unread,
Sep 24, 2005, 5:05:13 PM9/24/05
to
Johan de Jong <johan....@quicknet.nl> wrote in
news:68f36$4335492a$52d9468b$18...@cache20.multikabel.net:

> De userform werkt nu goed, nog een vraagje,
>
> Als ik op de agenda klik verschijnt de waarde niet in de geselecteerde
> cel.

Dus de kalender verschijnt nu wel op het scherm?

> Het is bijna voor elkaar.... heb ik iets verkeerd gedaan??

Dat kan ik zo niet beoordelen, maar het lijkt erop dat je iets hebt
vergeten of verkeerd aan elkaar hebt geknoopt!

> De onderstaande link gaf bij mij een error.....
>

Dat zal komen omdat hij inmiddels over twee regels verdeeld was. Hier izzie
nog een keer:

http://www.windowsdevcenter.com/pub/a/windows/2004/04/27/excelhacks.html


Dit heb ik staan als code achter Persnlk.xls - UserForm1

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

Calendar1 is de naam van de kalender. CommandButton1 de knop "Sluiten" bij
de kalender.

Johan de Jong

unread,
Sep 30, 2005, 1:35:16 AM9/30/05
to
Dodo,

Het heb even geduurd maar de calender werkt prima.

Bedankt voor de vele suggesties.

Johan

0 new messages