Ga naar inhoud

Date picker - Excel 365 - Win 10


Stefaan Eeman

Aanbevolen berichten

Hallo,

 

ik zoek me al dagen, weken suf op een date picker probleem.

ik gebruik windows 10 en office 365

ik heb vanalles gevonden en geprobeerd, van het toevoegen van "Microsoft Date and Time Picker Control 6.0 (SP6) " dit lukt niet, 

dit probeerde ik ook : "C:\Windows\SysWoW64\regsvr32.exe mscomct2.ocx"

dit lukte maar veranderde niets, ik vind nog steeds de date picker niet terug in de invoeg toepassingen, 

zou het aan de windows en office versie kunnen liggen want ik vind daar ook niets van terug in combinatie met date picker in google.

heeft iemand een alternatief?

ik wil gewoon in excel 365 in een sheet een drop down kalender in een cel.

 

groetjes en alvast bedankt voor jullie tijd

 

Stefaan

 

Link naar reactie
Delen op andere sites

Ik had ook zelf even moeten zoeken doch ik ben geen specialist.

 

Sluit Excel

Download data picker

Uitpakken en zet het in C:\Users\gebruikersnaam\AppData\Roaming\Microsoft\AddIns

 

Open nu Excel

Klik op tab ontwikkelaar

Klik op Excel invoegtoepassingen en klik op bladeren en ga naar WinDatePicker.xlam en dan openen klikken.

Nu zie je dat het ingevoegd.

 

invoeg01.png.b09c4f290453b9fa989d8e2ef6c2611a.png

 

Klik op bestand / optie / lint aanpassen

Vink rechts in de vak ontwikkelaars en klik OK

Ga terug naar Excel en klik bovenaan op tab invoegen / meer invoegtoepassingen / andere toepassingen beheren en dan zou je onderstaande moeten zien.

 

5b638dcdb3ab2_datapicker.jpg.159ab1b0cb0f58a4a6f4903cf5a3fd94.jpg.

 

Nu kan je ergens in een cel met de rechtermuisknop op Data Picker klikken.

Als je dan op live calander klik dan zie je ook een kalender

 

In VBA maar ik ken daar niks van kan je onderstaande doen:

 

Sub CallDatePickerFromOtherWorkbooks()
    Dim TestWkbk As Workbook
    Dim obj As Object

    If Val(Application.Version) >= 12 Then
        Set TestWkbk = Nothing
        On Error Resume Next
        Set TestWkbk = Workbooks("WinDatePicker.xlam")
        On Error GoTo 0
        If TestWkbk Is Nothing Then
            MsgBox "Sorry the Date Picker add-in is not open."
        Else
            Application.Run "'" & TestWkbk.Name & "'!OpenDatePicker", obj
        End If
    End If
End Sub

 

 

 

Link naar reactie
Delen op andere sites

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.