Data vergelijken In Excel 2007

[Plotinus]

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):

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...

 

[edmoor]

Zo uit het hoofd zou je dit kunnen doen in de Formulier.Activate sectie:
DTPicker1.MaxDate = Date

 

[Plotinus]

dank edmoor, dit werkt prima

 

[edmoor]

Goed gegokt dus