Datepicker i en userform

Du skal først højreklikke på din toolbox,vælg Addional controls, find og sæt flueben i
Kalender Kontrolelement xx.x

Lav en tom userform (Userform2)og træk så kalenderen ud på den, så det passer.

en hoved userform (Userform1), med en tekstboks og en knap til kalenderen.

Knappen til kalender

Private Sub CommandButton1_Click()
UserForm2.Show
End Sub


Kode under kalender i userform2

Private Sub Calendar1_Click()
UserForm1.TextBox1 = Format(Me.Calendar1, "DD-MM-YYYY")
End Sub

hvis vi laver den sidste kode sådan, forsvinder kalenderen automatisk

Private Sub Calendar1_Click()
UserForm1.TextBox1 = Format(Me.Calendar1, "DD-MM-YYYY")
Me.Hide
End Sub

Det var dog overraskende "nemt".

Super løsning.
Virker den i alle versioner af Excel. (jeg har lige lavet den i 2007).

Igen velfortjente point.

Og et lille bonusspørgsmål

Hvodan laver man commandbutto = flat
Jeg har placeret et billede på den og lavet den transparent, men man kan stadig se "rammen".

Jeg klarede selv den sidste.

Jeg kunne jo bare lave f.eks. en label i stedet for en commandbutton.

et svar ;-))

I Addional controls kan du også finde en der hedder

Microsoft Date And Time Picker Control 6.0

Det er en comboboks med indbygget kalender.

Super

Tak for input.

Hej begge

Disse virker perfekt i Vista samt Excel 2007.

Men hvor er kontrolelementerne i XP samt Excel 2007. De findes slet ikke ?

Hvis du ikke kan finde

Microsoft Date And Time Picker Control 6.0

Så kig her.

http://www.ascentive.com/support/new/support_dll.phtml?dllname=MSCOMCT2.OCX

Du kan nøjes med at downloade og installere denne fil. MSCOMCT2.OCX

Desværre kræver det installation hos alle brugere, hvis de ikke har den i forvejen.

Takker

Jeg har selv fundet ud af at Kalender Kontrolelement xx.x er en del af Microsoft Access. Og hvis man enten ikke har installeret Access eller Access ikke er en del af Office-pakken som f.eks. Standard-versionen. Så mangler den.

Man kan vist også kopiere mscal.ocx og så huske at registrere den i registreringsdatabasen, så skulle det også virke.