Beste,
Onderstaande code heb ik om een x aantal dagen bij een datum op te tellen of ervan af te halen.
Deze werkt goed. Echter zou ik willen dat de msgbox eerst vraagt om een selectie te maken in kolom D
Onderstaande code heb ik om een x aantal dagen bij een datum op te tellen of ervan af te halen.
Deze werkt goed. Echter zou ik willen dat de msgbox eerst vraagt om een selectie te maken in kolom D
Code:
Sub Startdatum_aanpassen()
Dim SelectedRange As Range
Set SelectedRange = Selection
AddDays = InputBox("geef het aantal dagen op dat bij de datum moet worden opgeteld...", "Add Days to Date")
For Each cell In SelectedRange
If IsDate(cell.Value) Then
cell.Offset(0, 0).Value = DateAdd("d", AddDays, cell.Value)
Else
Exit Sub
End If
Next cell
End Sub