VBA kalender

Evt.: Hvis man aktivere en Userform, kan der deri vises en kalender.

http://smallbusiness.chron.com/insert-calendar-clicking-cell-excel-29766.html

Eksempel: http://gupl.dk/694153/

Hej igen, det er noget i den stil, men jeg har behov for at datoen skal indsættes i celle A4, da der skal laves noget beregning på cellen.

Send en mail og jeg returnere filen. @-adresse under min profil

Ark1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$4" Then
        Load UserForm1
        UserForm1.Show 0
    End If
End Sub

Userform:
Private Sub Calendar1_Click()
Dim dato As Date, d As String
    With Calendar1
        dato = .Day & "-" & .Month & "-" & .Year
    End With
    Range("A4") = dato
    Unload UserForm1
End Sub

Her har du en excel-fil der gør hvad du efterspørger.
Jeg lader den ligge et par dage.

https://dl.dropbox.com/u/5145268/CalendarForm.xlsm

OBS!
Den/de celle(r) kalenderen skal virke på skal være formateret i formatet dd.mm.åå

Lidt mindre kode:
http://gupl.dk/694180/

Hej

supertekst: Har du mulighed for at oploade et eksempel, kan ikke finde ud af og lave kalender i userform.

perhol: Din kalender ser bedst ud og inderholder dagnavne,men kan ikke finde ud af ændre celle a4 til en anden celle hvis behovet opstår.

store-morten: Din kalender mangler dagnavne, men kan godt finde ud af og ændre celle a4 til en anden.

Hvis jeg nu kunne få perhol's kalender og store-morten's kode, ville helt perfekt.

Kalender findes således:
Alt+F11 (VBA-vinduet)
- Menu: Tools
-- Additional Controls
--- Kalender kontrolelement

En hvilken som helst celle i Ark1 der er formateret i formatet dd.mm.åå vil fremkalde kalenderformularen når man klikker på den.

Denne kalender har den fordel at der ikke er nogen ekstra funktioner eller kontroller der skal aktiveres for at den virker.
Omkostningen er så lidt mere kode.

#9 "Din kalender mangler dagnavne"

Nej, det gør den ikke ;-) De er blot, i en nedtonet farve, der er vanskelig at se.

Ændret til blå:
http://gupl.dk/694187/

Bemærk, kalender kan fremkaldes, i hvilken som helst celle, med makroén: Vis_Kalender
Kalender vises altid lidt til højre for valgte celle.
Valgte dato, indsættes i aktive celle.

>store-morten
Har prøvet din fil (begge versioner, men får bare en fejlmeddelelse når jeg forsøger:

Could not load an objekt because it is not available on this machine!

Min Excel er indstillet lige som Excel på mit arbejde (en kommunal institution), så der ville jeg sikkert få samme meddelelse.
Netop derfor er det en fordel for mig at alt nødvendigt for kalenderformularen ligger i filen i forvejen.

Version 3

Med uge nr:
http://gupl.dk/694195/

#14
Har lige prøve på en anden pc.
Og får også fejlen, når der åbnes fra nettet.
Vælges "End" virker det efter følgende.

Gemmes filen på pc. kommer denne fejl ikke.

Bruger Excel 2010.

Hej perhol & store-morten, begge Jeres versioner virker hos mig. Mange tak for Jeres hjælp.

Perhol hvis du smider et svar her, får du point.

Store-morten, jeg opretter et nyt spårgsmål med point til dig

God påske til Jer alle

Tror ikke point er så vigtigt for nogen af os.
Dejligt at du kan bruge de løsninger vi foreslår.
Hvis store-morten lægger et svar kan du acceptere begge svar, så deles point.