Filter andere locatie...

[Sven12]

Ja hahah stom van mij.... Weer bedankt. Kan ik ook nog instellen dat gebruikers alleen getallen in Kolom F mogen aanpassen of is dat niet mogelijk?>

 

[HSV]

Maak er dit van.

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
 If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(5)) Is Nothing Then
   .EnableEvents = False
      If Not IsNumeric(Target) Then
        .Undo
       Else
        Range("E3") = Now
      End If
 .EnableEvents = True
End If
End With
End Sub

Mag ook zo geschreven worden wie dat mooier vindt.

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
 If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(5)) Is Nothing Then
   .EnableEvents = False
      If Not IsNumeric(Target) Then .Undo Else Range("E3") = Now
   .EnableEvents = True
 End If
End With
End Sub