Bestimmtes Datum per Inputbox in Zelle schreiben

Question

Hallo,

ich habe folgendes, wahrscheinlich total leicht zu lösendes Problem:

Ich möchte, dass bei einem Klick auf einen Button, eine Inputbox erscheint in die ich ein bestimmtes Datum (Format z.B. TT/MM/JJJJ) eintragen kann. Dieses Datum soll dann in eine bestimmte Zelle geschrieben werden.

Ich bekomme das einfach nicht hin. Vielleicht habt ihr ja eine Idee!?
Danke schonmal im Voraus.

MfG,
mcscool

Answer 1

Hallo Unbekannter,

ohne Prüfung ob Datum.
Option Explicit

Sub Unbekannter()
Range("A1") = CDate(InputBox("Datum!"))
End Sub

Gruß Hajo

Answer 2

Danke Hajo!
das funktioniert ja super!
Gruß mcscool88