Datum notatie geeft probleem

[AD1957]

Beste Forumleden,

Cel B1 wordt gevuld met kalender-form.
Nu probeer ik met een selection-change een msgBox te krijgen.
Als B1 zondag of zaterdag bevat dan msgbox.
Zie wel waar de schoen wringt, maar vind geen oplossing.

 

[VenA]

If Not Intersect(Target, Range("B2")) Is Nothing Then
  If Weekday(Range("B1"), 2) > 5 Then MsgBox "de datum valt in een week-end"
End If

 

[AD1957]

Bedankt:thumb: