Nieuwe datum in inputbox wegschrijven in cel

[ericeul]

Hallo,

onderstaande code zou ik een beetje willen uitbreiden zodat de nieuwe datum die ingegeven wordt in de inputbox de bestaande van A1 overschrijft.
Waarschijnlijk een makkie maar met m'n beperkte VBA kennis lukt me dat niet echt.

Sub macro1()
Dim Message, Title, Default, MyValue
Message = "Geef nieuwe datum in"
Default = Range ("A1").value
MyValue = InputBox(Message, Title, Default)
end sub

Alvast bedankt.
Eric

 

[koosl]

Eric,

ik heb je voorbeeldje ietsjes aangepast.

Sub macro2()
Dim Message, Title, Default, MyValue
    Message = "Geef nieuwe datum in"
    Title = "Datum"
    Default = "01-01-2009"
    MyValue = InputBox(Message, Title, Default, 3800, 6050)
    Range("A1") = MyValue
End Sub

Nog een voorbeeldje:
Je hoeft niet per se Title en default en posities erin te zetten. het mag ook alleen
Message zijn. Of Message en de posities, maar dan moet je wel ,,, zetten

Sub macro3()
Dim NieuweDatum As Date
    NieuweDatum = InputBox("Geef nieuwe datum in", , , 3800, 6050)
    Range("A1") = NieuweDatum
End Sub

Koosl

 

[ericeul]

Werkt !

Bedankt Koosl !

Eric