Inputbox hvor der kan tastes dato

Brug isdate() for at teste om det er en dato og hvis den er ikke så spørg igen.

Hej,
Her er et forslag på en makro der bruger en Inpotbox til at spørge brugeren om en dato og indsætter denne. Hvis det ikke er en dato der bliver indtastet kommer der en MsgBox der informere brugeren om dette.

Sub mcrInputBoxDato()
'On Error GoTo errHandler
    'Variabel
    Dim varDato As Date
   
    varDato = InputBox("Skriv dato", "Dato input")
   
        Range("A1").Select 'Vælg den celle hvor data skal sættes ind - A1
       
        'Formatering af cellen - Her som dato
        'men kan også være font, størrelse osv.
        With Selection
            .NumberFormat = "dd/mm/yyyy;@"
        End With
       
        'Indsæt dato
        ActiveCell.Value = varDato
Exit Sub
errHandler:
'Fejl håndtering

'Der kommer en MsgBox hvis detindtastede ikke er en dato
    MsgBox "Den indtastede dato er ikke korekt", vbExclamation

End Sub


Hilsen
Tue Hellstern
www.F1-support.dk

Hej Tue,

Jeg har plukket det meste fra dit indlæg og fået løst mit problem.
Kunne dog ikke få din krølle med "kontrol af at bruger taster korrekt datoformat" til at virke.

Så tak for hjælpen...