Opgelost cel datum min 7 dagen via vba laten invullen in andere cel

[Friend]

Beste forummers,

Ik gebruik de volgende code :

Sub decl()


    
    Dim decldate As String
    
    Dim myString As String
    
    decldate = Application.InputBox("Please enter the date in the following format: dd/mm/yyyy", "Enter Date", Format(Date, "dd/mm/yyyy"))

    ActiveSheet.Range("L4").Value = Format(decldate, "ddd d mmm yyyy")
    ActiveSheet.Range("J4").Value = Format(decldate, "ddd d mmm yyyy") - 7
    
End Sub

Via de input box voer ik een nieuwe datum in voor cel L4
Dan wil ik graag in J4 deze datum krijgen min 7 dagen

Echter dan krijg ik de volgende foutmelding: typen komen niet met elkaar overeen.

Hoe kan ik dit oplossen?

Friend

 

[lam201]

Zo lukt het wel:

Sub decl()

Dim decldate As Date
Dim myString As String

decldate = Application.InputBox("Please enter the date in the following format: dd/mm/yyyy", "Enter Date", Format(Date, "dd/mm/yyyy"))

ActiveSheet.Range("L4").Value = Format(decldate, "ddd d mmm yyyy")
ActiveSheet.Range("J4").Value = Format(decldate - 7, "ddd d mmm yyyy")
    
End Sub

 

[Friend]

Iam201, hartelijk dank voor je reactie en oplossing

Perfect.

Thanks

Friend