macro geeft foutmelding als ik cel ervoor selecteer en op delete druk

[bjornesto]

Hieronder heb ik ook een code die een foutmelding geeft als ik cellen selecteer en op delete druk. Dat zijn meestal de cellen voor die range die hieronder beschreven staan

Run-time error 13 type mismatch

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A48:A69,E48:E69,A72:A111,A181:A185,E181:E185,A188:A192,E188:E192,A197:A203,A221:A223")) Is Nothing Then
  With Target.Offset(, 1)
   .Value = IIf(.Value = "", Time, .Value)
  End With
 End If
End Sub

kan dit opgelost worden

 

[pasan]

op regel 2, On Error Resume Next

 

[edmoor]

Probeer het eens met:
On Error Goto Einde
op de regel voor het If statement.
Op de regel voor de End Sub zet je dan:
Einde:

 

[edmoor]

Botsing met Pasan