kalender invoegen in een cel

[muze67]

hoi

ik zou graag een kalender invoegen in een cel zoals je doet bij een validatie,
als ik in de cel klik moet er een kalender opengaan en moet ik de juiste datum eruit kunnen kiezen die dan in de cel wordt weergegeven.

ik heb al een paar dingen opgezocht hier op de forum, ik krijg dan een link naar infopath
nu het probleem is dat ik niks kan downloaden.

ik zit hier met excel 2002

(ik zou graag de kalender van windows willen gebruiken als dat kan)

 

[danny147]

Beste muze67

Zie bestandje

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Wil je het zonder knop. Plaats onderstaande achter het tabblad met je datuminvoer. Door te dubbelklikken op een cel wordt de calender geactiveerd.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Userform1.Show
End Sub

Mvg

Rudi

 

[leofact]

Mocht het lukken om het bestand van Danny147 wel te downloaden dan kun je de calendar control als volgt gebruiken:
Ga in zijn bestand naar de VBA editor selecteer userform1 en ga naar menu Bestand > exporteren.
Ga vervolgens naar je eigen bestand en ga in de editor naar Bestand importeren en haal de kalender van de locatie waar je deze net hebt opgeslagen.
Nu heb je de beschikking over userform1 en kun je de code van Warme Bakkertje gebruiken.
Eventueel kun je dit nog uitbreiden om te bepalen in welke kolom(men) of rij(en) de Kalender naar voren komt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 3 then               ( 'en/of Target.Row)
       Userform1.Show
  End if
End Sub

mvg leo

 

[Warme bakkertje]

Leo, het kan ook simpeler. Open gewoon beide bestanden en in VBA sleep je het calenderform gewoon van het ene naar het andere bestand.

Mvg

Rudi

 

[leofact]

Da's ook een idee natuurlijk
Dit is onnodig moeilijk

 

[muze67]

hoi mensen,

ik heb het geprobeerd maar het bestandje dat ik heb doorgekregen snap ik niet echt goed.
eerlijk gezegd weet ik niet waaroverdat jullie het hebben :-(

kan er iemand mij een voorbeeld maken in het bestand dat ik doorstuur

in de cel onder datum wil ik klikken en dan moet er een kalender te voorschijn komen zdat ik een datum kan kiezen die na selectie in de desbetreffende cel te voorschijn komt.

dit moet ik zoals een functie kunnen doorslepen naar onder toe

 

[danny147]

Beste muze67

Zie bestandje

Bij het dubbelklikken op de cel verschijnt de kalender, klik dan op een datum en sluiten.

Of wil je het anders ?

Groetjes Danny. :thumb:

 

[Albatros]

Beste Danny,

Bij het uitvoeren van jouw beide bestanden krijg ik de volgende foutmelding:
"Kan een object niet laden omdat het niet beschikbaar is op deze machine"

Misschien treed er bij de TS hetzelfde probleem op?
Zelf ben ik ook wel nieuwsgierig naar de oplossing van deze melding.

Albatros

 

[danny147]

Beste Albatros

Heb eens horen zeggen op dit forum dat ge een office versie moet hebben met daarin acces.
Heb je dit niet dan kan hij de kalender niet ophalen.

Groetjes Danny. :thumb:

 

[danny147]

Beste Albatros

Doe eens ALT+F11, dan op invoegen en dan op Userform.
Nu krijg je een venster te zien en een werkset.
Heb je het werkset niet ga dan naar Beeld en dan klik je op werkset.

Met de rechtermuis klikken in het midden van het werkset, dan op extra besturingselementen en vink kalenderbesturingselementen 12.0 aan.

Nu zal de kalender in het werkset staan, als je hier op klikt dan kan je deze in de Userform plaatsen.

Kan je dit niet of het besturingselement is niet beschikbaar dan zal je geen acces hebben op je computer.

Groetjes Danny. :thumb:

 

[jpvs]

Dit kan ook zonder dubbel klikken?

Plaats dit achter je blad

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "dd/mm/yyyy"
ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B4"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub


Via Invoegen --> Object -->kies hier Kalenderbesturingselement aan en klik op OK


zie site van :
http://www.rondebruin.nl/calendar.htm

 

[Albatros]

Beste Danny,

(Off-topic)

Bedankt voor je uitleg. :thumb:
Heb idd geen Acces op mijn pc staan.
(vroeger gebruikt, nu niet meer)

Albatros

 

[wimbre]

Ik heb op mijn pc thuis dit ook toegepast en inderdaad een mooie kalender waar ik uit kan selecteren.

Nu op laptop kantoor gezet en hij reageert wel als ik in het bereik tik maar ik zie alleen geen datums op die knoppen!

Weet iemand hoe dit komt?

p.s. op die laptop staat geen access.

Alvast bedankt.

Gr.

Wim

 

[Warme bakkertje]

In bijlage een 2 calendarforms volledig in VBA geschreven. Er zijn dus geen controls nodig.

Mvg

Rudi

 

[wimbre]

dankje!

 

[muze67]

mensen, allemaal hartelijk bedankt voor de reacties

jullie zijn de beste

groetjes

 

[snb]

Zie ook hier

 

[jpvs]

In het bestand van "Warme bakkertje" "Personal_VBACalendar_02.xls

Heb ik iets aangepast nl. de breedte van de kolom wordt niet automatisch aangepast bij het plaatsen van de datum.
Met dit erbij wel : rngDateHere.EntireColumn.AutoFit


zie module Use_VbCalendar

Sub CalendarDate_ToRange(rngDateHere As Range)

'   Local Variables


'   Step 1 : Verify range is a single cell
    If rngDateHere.Cells.Count > 1 Then Exit Sub

'   Step 2 : Display Calendar
    vbCalendar.Show
    If vbCalendar.Tag <> "" Then
        Unload vbCalendar
        Exit Sub
    End If

'   Step 3 : Place date in indicated range
    If vbCalendar.txt_SelectedDate <> "" Then
    rngDateHere = DateValue(vbCalendar.txt_SelectedDate)
    [B]rngDateHere.EntireColumn.AutoFit[/B]
    
    End If
   
    
    Unload vbCalendar

End Sub

 

[tsjokko]

Hallo,

Kan ik in dit voorbeeld ook de calendar activeren in twee cellen?
Ik heb wel eea geprobeerd maar dan komt de calendar ook op in de tussenliggende cellen en dat is niet de bedoeling.

Ricky