Hulp gevraagd bij macro

[Kim77]

Ik heb een excel waar ik in volgende "bereiken" alleen een datum wil toestaan:
Range I3:I999
Range J3:J999
Range K3:K999

Ik had online al een macroscript gevonden (zie hieronder) waarin ik het bereik I3:I999 kon registreren, maar hoe kan ik de macro aanpassen zodat ook de 2 andere bereiken worden gecontroleerd op "datum"?

Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("I3:I999")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Deze cel mag enkel een datum bevatten."
End If
Next c
End Sub


Alvast bedankt voor de hulp

 

[edmoor]

Zo:

Set w = ActiveSheet.Range("I3:K999")

Maar ik zou het zo doen:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I3:K999")) Is Nothing Then
        If Target.Value <> "" And Not IsDate(Target) Then
            Target.ClearContents
            Application.Goto Range(Target.Address)
            MsgBox "Deze cel mag enkel een datum bevatten.", vbCritical, "Onjuiste ingave"
        End If
    End If
End Sub

 

[edmoor]

En graag gedaan hoor

 

[HSV]

Niet handig om op twee plekken dezelfde vraag te plaatsen.

https://www.helpmij.nl/forum/showthread.php/964356-Hulp-gevraagd-bij-VBA-code

 

[Kim77]

Correct, daarom had ik de vraag hier ook meteen op opgelost gezet aangezien ik ze niet kon verwijderen ;-)
Maar bedankt voor de hulp alleszins!