Checken of ingevoerde datum een maandag is!

[Masjimo]

Ik wil bij de invoer van een datum in Cell D3 checken of de ingevoerde datum een maandag betreft.

Daarvoor heb ik de volgende VBA geschreven, maar het werkt niet.....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim Output As Integer

Set r = Abs((Range("D3").Value - 2) / 7) - ((Range("D3") - 2) / 7)

If r <> 0 Then
Output = MsgBox("Deze datum valt niet op een maandag!", vbOK)
Range("D3").clearcontent
Else
Exit Sub
End Sub

Wat doe ik fout?

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
 If Weekday(Target.Value, 2) = 1 Then
   MsgBox "Maandag"
  End If
 End If
End Sub

 

[Masjimo]

Er volgt de mededeling: onduidelijke naam gedetecteerd: Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range

Er is nog een privatesub actief....

Wat is de oorzaak?

 

[HSV]

Zet je eigen code als 'opmerking'.

 

[Masjimo]

Al gedaan....

 

[HSV]

Prima.

 

[Masjimo]

Als enige Private-sub werkt het wel.......

Maar ik wil die andere ok niet kwijt....

Twee Private Sub Worksheet_Change werkt dat niet?? (Op een werkblad)

 

[HSV]

Nee,
Je moet met onderdelen van mijn code proberen die van jou te maken.

 

[Masjimo]

Je kan dus geen twee Worksheet_Change naast elkaar in 1 werkblad gebruiken??

Ik ga het proberen....

 

[HSV]

Nee, dat kan niet.

 

[popipipo]

misschien formule in data validatie gebruiken voor check op invoer van een maandag:
=WEEKDAY(D3;2)=1

 

[Masjimo]

Hij werkt inmiddels, bedankt!!

Moest de VBA wel vooraan in de Private Sub zetten....

 

[snb]

Waarom zou je niet een lijst met geldige (maan)dagen maken, waaruit de gebruiker via validation kan kiezen ?

 

[snb]

Waarom zou je niet een lijst met geldige (maan)dagen maken, waaruit de gebruiker via validation kan kiezen ?

Voorkomen is beter dan -achteraf- genezen.

 

[popipipo]

@SNB
Uit een lijst van alle maandagen van een jaar kiezen lijkt mij ook niet erg handig.
Voor jou is het denk ik een koud kunstje om als je een andere dag invult dat een VBA routine deze dan automatisch omzet in de maandag daarvoor.