VB excel 2016 Private Sub Worksheet_Change(ByVal Target As Range)Dim WatchRange As RangeSet WatchRange = Me.Columns(“A:E”) ‘ Overvåg kun kolonner A-EOn Error Resume NextIf Not Intersect(Target, WatchRange) Is Nothing ThenApplication.EnableEvents = FalseTarget.Value = Target.Value ‘ Bevar kun værdier, fjern formateringApplication.EnableEvents = TrueEnd IfEnd Sub