Suggestie datum in inputbox

Status
Niet open voor verdere reacties.

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Hallo,

Is het mogelijk om bij een inputbox message de datum van "A4", als suggestie in te vullen, waarbij je dan de mogelijkheid hebt om door te enteren als er niets veranderd, of een nieuwe datum in te vullen.
de code ziet er nu zo uit:
Code:
Sub Macro10()

Dim DatumIngang As String
DatumIngang = CDate(InputBox("Type Ingangsdatum Voorstel", Format("dd/mm/yy")))
   
Range("A4") = CDate(DatumIngang)
End Sub
 

Bijlagen

  • Suggestie Datum.xlsm
    13,4 KB · Weergaven: 16
Zo?
Code:
Sub Macro10()
    Dim DatumIngang As String

    DatumIngang = InputBox(Range("A4"), "Type Ingangsdatum Voorstel:" & Format("dd/mm/yy"))
    If DatumIngang = "" Then DatumIngang = Range("A4")
    Range("A4") = CDate(DatumIngang)
End Sub
 
Hallo Edmoor,

nee, helaas, de suggestie, in dit geval 1-6-2021, moet in in invoerveld staan, zodat je deze kan doorenteren, of muteren.
 
Het staat niet in het invulveld, maar wel in het scherm.
Om dat te accepteren hoeft men niets in te vullen.
 
Laatst bewerkt:
Ja, idd, zo had ik het nog niet gezien. Dit werkt prima eigenlijk.
Ik ga 'm gebruiken.
Dank je Edmoor.;)
 
Of doe het zo:
Code:
Sub Macro10()
    Dim DatumIngang As String

    DatumIngang = InputBox(Range("A4"), "Type Ingangsdatum Voorstel:" & Format("dd/mm/yy"), Default:=Range("A4").Text)
    Range("A4") = CDate(DatumIngang)
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan