Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A10:A40")) Is Nothing Then Application.EnableEvents = False With Target .Value = CDate(Range("C1").Value) - 1 + Target.Value .NumberFormat = "dd.mm.yyyy" End With Application.EnableEvents = True End If End Sub
es funktioniert perfekt !!
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A10:A40")) Is Nothing Then Application.EnableEvents = False With Target .Value = DateAdd("d", Target.Value - 1, Range("C1").Value) .NumberFormat = "dd.mm.yyyy" End With Application.EnableEvents = True End If End Sub
58.4k Fragen
249k Antworten
7k Nutzer