Kalender i VBA

Jeg mener ikke at du kan få den i en formular, den findes kun userforms, altså VisualBasic delen i Excel.

Hmm, hvordan "kalder" jeg den?

Hvor skal den være, på et ark, eller i en userform, men fælles for begge steder, er den ikke vist i toolboksen, den skal tilføjes.

På arket, højreklikker du på et tomt sted på menulinien, der kan du vælge VisualBasic.

Toolboksen som kommer frem har en knap der hedder Flere Kontrolelementer, klik på den.

I min hedder den Kalender kontrolelement 11, jeg har Office 2003 dansk version.

Tak kabbak!
men jeg har hørt om noget der hedder .ocx-elementer - er det noget jeg kan bruge og hvordan gør jeg det?

Det er faktisk disse elementer der ligger under toolboksen, som hedder det, de skal bare vælges og så træk en firkant eller lignened på arket, med musen, så kommer objektet fram.

Jeg har et eksempel med en kassekladde der bruger en kalenderkontrol til at indsætte en korrekt dato. Måden at benytte kalenderkontrollen er sakset fra Martin Green på siden www.fontstuff.com
Jeg kan evt. sende dig en zippet pakke med kassekladden samt calendar.xla der er selve kalender tilføjelsen til excel. Pakken indeholder desuden en kort tekstfil med den placering mit system benytter til at lægge tilføjelsesprogrammer i

Zip-filen fylder kun 27 Kb

perhol> lyder spændende, men kan ikke finde noget på fontstuff.com - Hvad er det jeg skal finde der?
Du må gerne sende mig filen - henrik@southfarm.dk - men du må lige give mig en step-by-step så jeg ved hvad jeg skal gøre for at få det til at virke!

Har sendt en zip-fil
Udpak den på et passende sted på din harddisk.
Kopier den medsendte Calendar.xla i den rette mappe, det er i mit tilfælde mappen 'C:\Programmer\Microsoft Office\OFFICE11\Bibltek' (uden anførelsestegn).
Når du åbner arket 'Kalenderkontrol i Excel.xls' vil du få en sikkerhedsadvarsel med mulighed for at åbne uden eller med makroer samt en mulighed for at få flere oplysninger om sikkerhedsrisikoen ved makroer.
Vælg 'Med makroer'.
Når arket er åbent vil du se et ark med en kassekladde samt nogle tilsyneladende 'mærkelige' tekster (i kolonne H og K). Teksterne er sat der for at have adgang til de formler der bruges i arket hvis nu man kommer til at lave ged i selve formlerne. normalt er de skjult, men du skulle jo gerne kunne se dem.
Kalenderkontrollen  aktiveres når man klikker på en celle i området A4:A39 samt området A42:A76.
I kalenderkontrollen kan du vælge måned, år og dag i måneden. Når du vælger dag bliver datoen for denne indsat i korrekt format i den valgte celle.
Hvis du trykker på Alt+F11 åbner du Visual Basic editoren hvor du kan se al VBA koden.
I arket er i forvejen indtastet en udgift på 1 kr. Det er for at du kan se at der åbnes endnu en side i kassekladden nedenunder første side når der er udfyldt et beløb i indtægts eller udgift kolonnen i række 39. Fjerner du indtastningen forsvinder side 2 i kassekladden. Pyha, det blev jo en længere smøre ;-)

Ang. fontstuff.com havde jeg egentlig ventet at du selv kunne finde rundt.
Hvis du klikker på menupunktet 'Excel' kommer du frem til en side med en del tutorials på engelsk. Næsten nederst finder du en tutorial der hedder 'A Pop-up Calendar for Excel'. Den giver dig al den nødvendige forklaring vedr. brug af kalenderkontrollen, men det kræver selvfølgelig at du læser den for at forstå det. Her er det direkte link til tutorialen: http://www.fontstuff.com/vba/vbatut07.htm

Tak skal du ha'! Jeg har fået det til at virke som det gør i eksemplet, men jeg skal ikke have datoen ned i den aktive celle, men ned i en tekstboks "tbDato", der er i en formular, der hedder "ufNy_tankning".
Jeg har prøvet at ændre

ActiveCell.Value = Calendar1.Value til
tbDato.Value = Calendar1.Value

uden held. Hvad gør jeg for at aktiverer "ufNy_tankning", så datoen kan indsættes i tbDato?

Der spørger du om mere end mine evner rækker til.
kabbak ville nok være bedre.
Står af.

Private Sub Calendar1_Click()
tbDato = Calendar1
End Sub

kabbak> er prøvet - jeg får en fejlbesked om at variabel ikke er defineret!

Tjek om din tekstbox hedder 'tbDato" og at kalenderen hedder 'Calender1'

Tekstbox hedder "tbDato" men jeg kan ikke gennemskue hvad calenderen hedder - Formen hedder frmCalendar men når jeg klikker på formen "åbnes" denne makro: Private Sub Calendar1_Click()

Jeg kan se, at det er "tbDato =" den er gal med, da det er det, der er markeret, når fejlbeskeden kommer!
Skal formularen "ufNy_tankning", hvor tbDato ikke også defineres i makroen?

ufNy_tankning.tbDato = frmCalendar.Calendar1

Så lykkedes det :-)

Vil både kabbak og perhol ligge et svar, så I kan få jeres point!

Ser ud til at du har brugt noget jeg har 'lånt' fra fontstuff.com.
Det er kabbak der har kodet ;-)
Ingen point her.
Gemmer selv spørgsmålet til senere brug.

et svar ;-))

Perhol du er loyal for principperne på eksperten - flot :-)
kabbak du får hermed pointene!

Tak for hjælpen begge to!