Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Datum popup venstertje  (gelezen 16947 keer)

0 leden en 1 gast bekijken dit topic.

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Datum popup venstertje
« Gepost op: 26 december 2018, 07:14:16 »
Beste,

Bestaat er in Excel iets in de zin van een popup venstertje dat opent om een datum in te stellen ?

Zie voorbeeld bijlage

Mvg
René
Windows 10
Excel 2013

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Datum popup venstertje
« Reactie #1 Gepost op: 26 december 2018, 09:03:37 »
Jazeker, dat bestaat.
Zie bijlage.
Zeg maar waar en hoe je de kalender wilt gebruiken dan pas ik de code wel aan.

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Datum popup venstertje
« Reactie #2 Gepost op: 26 december 2018, 10:10:30 »
Beste Dotchiejack,

Dank voor uw snelle reactie.

Dit lijkt erop wat ik zoek.
In bijlage een test bestand waar ik in de cellen G & H 24 tot G & H 28 wil verwijzen naar een popup-kalender.
Dit om verlofperiodes te kunnen instellen. Later moet ik nog met deze datums verder werken.

Ik heb reeds uw 'form'  ingevoegd in VBA.

Windows 10
Excel 2013

Offline JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: Datum popup venstertje
« Reactie #3 Gepost op: 26 december 2018, 11:00:34 »
Even aangepast

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Datum popup venstertje
« Reactie #4 Gepost op: 26 december 2018, 15:13:46 »
Zoals in vorige mail gezegd wil ik die datums nog verder verwerken.

Ik probeer dit met een Format(Range("G24").Value maar dat lukt niet.

Ik wil afzonderlijk de naam van de dag (ma, di, wo...) en van de maand (jan, feb,...) en het jaar in variabelen plaatsen.
Windows 10
Excel 2013

Offline JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: Datum popup venstertje
« Reactie #5 Gepost op: 26 december 2018, 16:10:25 »
Die eigenschap moet je in de cel zelf veranderen

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Datum popup venstertje
« Reactie #6 Gepost op: 26 december 2018, 16:24:28 »
Beste,
Je spreekt in raadsels. Zoals Jean Paul aangaf, de cel eigenschappen veranderen, is dit niet voldoende?
Als je  VBA regels wilt dan is je format zoiets.
ActiveCell.Offset(, 3).Value = Format(ActiveCell, "ddd")
ActiveCell.Offset(, 4).Value = Format(ActiveCell, "mmm")
Als je in G24 een datum zet krijg je de dag (wo) in Cel J24
Als je in G24 een datum zet krijg je de maand (dec) in Cel K24
Post anders een vbtje met het gewenste resultaat.


Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Datum popup venstertje
« Reactie #7 Gepost op: 26 december 2018, 16:48:02 »
Ik heb volgende code toegepast en lijkt OK:

Range("G24").Select
        dag = Format(ActiveCell, "ddd")
        maand = Format(ActiveCell, "mm")
        jaar = Format(ActiveCell, "yyyy")

Dank voor de tips !

Mvg
René
Windows 10
Excel 2013

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Datum popup venstertje
« Reactie #8 Gepost op: 26 december 2018, 18:00:54 »
Citaat
Range("G24").Select
Vermijd Select en/of Activate,het is zelden nodig en het vertraagt je code big time

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Datum popup venstertje
« Reactie #9 Gepost op: 31 december 2018, 05:56:29 »
Dotchiejack,

Hoe vermijd ik dan de '.select' in de code van mijn vorige post ?
Windows 10
Excel 2013

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Datum popup venstertje
« Reactie #10 Gepost op: 31 december 2018, 07:25:54 »
Bijvoorbeeld zo...
with Range("G24")
        dag = Format(.value, "ddd")
        maand = Format(.value, "mm")
        jaar = Format(.value, "yyyy")
End with
______________________________

Groet, Leo

 


www.combell.com