Plotinus
Gebruiker
- Lid geworden
- 25 mrt 2007
- Berichten
- 649
In Excel laat ik middels een datumpicker de gebruiker een datum kiezen en plaats die in een cel (P2). Omdat die datum nooit in de toekomst mag liggen evalueer ik deze datum met de de huidige datum (vandaag dus):
Omdat dit problemen op levert (altijd activering van de MsgBox, ongeacht de gekozen datum) heb ik twee variablen benoemd. a geeft 25-6-2015 en b geeft "23-6-2015"; een verschil van de aanhalingstekens dus. De vergelijking gaat daar dus op mank. Vraag is hoe los ik dit op; iemand een idee waarin ik het moet zoeken?
Ik realiseer em dat de datumpicker zelf ook begrensd zou kunnen worden d.m.v. het instellen van een maxale datum. In Excel is het betreffende dialoogvenster te openen, maar hoe middels VBA ieder keer de huidge datum als maxdatum daarin te plaatsen...
Code:
Private Sub DTPicker1_Change()
a = Date
b = Worksheets("Actuele_score").Range("P2")
If Worksheets("Actuele_score").Range("P2") > Date Then MsgBox ("Dit is onmogelijk")
End Sub
Omdat dit problemen op levert (altijd activering van de MsgBox, ongeacht de gekozen datum) heb ik twee variablen benoemd. a geeft 25-6-2015 en b geeft "23-6-2015"; een verschil van de aanhalingstekens dus. De vergelijking gaat daar dus op mank. Vraag is hoe los ik dit op; iemand een idee waarin ik het moet zoeken?
Ik realiseer em dat de datumpicker zelf ook begrensd zou kunnen worden d.m.v. het instellen van een maxale datum. In Excel is het betreffende dialoogvenster te openen, maar hoe middels VBA ieder keer de huidge datum als maxdatum daarin te plaatsen...