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 script gevonden (zie hieronder) waarin ik het bereik I3:I999 kon registreren, maar hoe kan ik het script 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
Range I3:I999
Range J3:J999
Range K3:K999
Ik had online al een script gevonden (zie hieronder) waarin ik het bereik I3:I999 kon registreren, maar hoe kan ik het script 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
Laatst bewerkt: