Datumkiezer

[heididegeus]

Hallo allemaal,

Ik heb even een vraagje,

Ik ben bezig met een formulier waarin een datum in moet komen te staan. Dit wil ik doen met een datumkiezer. Dus zodra je op de cel gaat staan, dat er dan ook een kalender tevoorschijn komt.
Ik gebruik Excel 2010.

kan iemand mij hiermee helpen?

Alvast bedankt.

Heidi

 

[Gijsbert1]

Ku je hier wat mee?
Bekijk bijlage Datum en kalender.xlsm

 

[heididegeus]

Dat ziet er al heel goed uit.
Kan ik dit ook beperken tot 1 cel?
Ik zie namelijk de hele kalender in de sheet

 

[gast0660]

hier heb je er nog een

 

[Gijsbert1]

zo dan:Bekijk bijlage Datum en kalender (1).xlsm

 

[heididegeus]

Wat super beide, dat ziet er heel goed uit.

Hoe kan ik dit het beste in mijn formulier plakken?

Mag ik jullie beide alvast heel erg bedanken voor jullie moeite, ik ben er heel erg mee geholpen

 

[gast0660]

Wat mijn vbtje betreft.
Open uw bestand en mijn vbtje.
Ga naar de VBA editor (Alt + F11)
Sleep de kalender van mijn vbtje naar uw bestand (uit het mapje formulieren)
Sleep de module van mijn vbtje naar uw bestand (uit het mapje modules)
Plak volgende code in het blad waar de datum moet komen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("[COLOR="#FF0000"]D4[/COLOR]")) Is Nothing Then
LeftPos = ActiveCell.Left
Wdth = ActiveCell.Width
TopPos = ActiveCell.Top
Kalender.Left = LeftPos + Wdth
Kalender.Top = TopPos
Kalender.Show
End If
End Sub

Verander het rode gedeelte naar de cel waar uw datum moet komen.
Sluit de VBA editor
Klaar

 

[Gijsbert1]

En wat mijn vb-tje betreft:
volg instructie gast0660.
Edit: zit geen module in.
pas rode gedeelte code aan

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "[COLOR="#FF0000"]$A$2[/COLOR]" Then
    DatePicker.Show
End If
End Sub

 

[heididegeus]

Super bedankt!!

Ik ben hier heel blij mee:thumb::thumb::thumb:

 

[heididegeus]

Hallo gast0660,

Ik krijg een foutmelding in 1 van de formules.
Heb ik iets niet goed gedaan?

Wat mijn vbtje betreft.
Open uw bestand en mijn vbtje.
Ga naar de VBA editor (Alt + F11)
Sleep de kalender van mijn vbtje naar uw bestand (uit het mapje formulieren)
Sleep de module van mijn vbtje naar uw bestand (uit het mapje modules)
Plak volgende code in het blad waar de datum moet komen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("[COLOR="#FF0000"]D4[/COLOR]")) Is Nothing Then
LeftPos = ActiveCell.Left
Wdth = ActiveCell.Width
TopPos = ActiveCell.Top
Kalender.Left = LeftPos + Wdth
Kalender.Top = TopPos
Kalender.Show
End If
End Sub

Verander het rode gedeelte naar de cel waar uw datum moet komen.
Sluit de VBA editor
Klaar

 

[gast0660]

Hoi Heidi,
Ik zie niets fout aan de code,zet eens een apostrof voor de fout regel (tekst moet groen kleuren) en probeer het nog eens.
Wat gebeurt er in mijn vbtje als je de cel D4 verandert naar O2?
Dat lijntje code op zichzelf heeft alleen te maken met waar de kalender verschijnt op het werkblad.

 

[heididegeus]

Ik vind het ook vreemd, want met compileren geeft hij geen fout.

Zodra ik dubbelklik op de cel, geeft hij dus het volgende aan:

 

[gast0660]

En je hebt geen probleem met mijn vbt bestandje of die van Gijsbert?
Wat gebeurt er als je met F8 over de code van de kalender loopt?
Met wat ik nu heb zou ik niet direct weten.
Kan je een kopie van het probleembestand posten (zonder gevoelige info)?

 

[heididegeus]

Ik heb het bestand even bijgevoegd.
Ik heb jou (gast0660) VBA gebruikt.

Ik heb uiteraard alle gevoelige info (namen) eruit gehaald.

In alle velden waarin de koptekst staat gepland moet deze kalender komen.

 

[gast0660]

Hoi Heidi,
Opgelost.
In bijlage, je had het blad met de verlofdagen 2017 niet in uw echte bestand gezet, (had ik ook vergeten te vermelden) en de code is aangepast voor kol L en Kol O

 

[heididegeus]

Hallo gast0660,

Ik ben er nog mee bezig hoor, ik heb er nog geen tijd voor gehad, er zijn even wat andere dingen tussen gekomen.
Ik wilde je dat even laten weten, niet dat je denkt ik hoor niets meer.

Ik kom er nog bij je op terug.

Gr Heidi

 

[gast0660]

Tja, 'tis tegenwoordig iets met dingen die ertussen komen

 

[heididegeus]

Heyyyy gast0660,

Ik heb er gisteravond nog naar gekeken en het werkt allemaal hoor!!!

Heel erg bedankt voor je hulp!!!

Groetjes

 

[gast0660]

Graag gedaan :thumb:
Suc6

 

[dch]

Beste gast0660,

Ik heb dezelfde vraag als heididegeus. Echter, ik stoot ook op dezelfde problemen. Ik slaag er niet in om de datumkiezer in werking te krijgen zonder foutmelding.
Ziet u het zitten om mijn document ook even te bekijken? De cellen gemarkeerd in fluo zijn de cellen die een datumkiezer zouden moeten krijgen.

Alvast heel erg bedankt!

Groetjes

Bekijk bijlage Map1.xlsm