Tjek af korrekt indtastet dato i textbox

Du kan markere cellerne og vælge datoformat

Ja, du kan lave et brugerdefineret format. Her kan du få en fejlmelding frem, hvis det indtastede afviger fra det format, der ønskes

jimse --> Jeg tror du har misforstået... jeg har en formular med en tekstboks hvor brugeren angiver en dato. Datoen _skal_ skrives til cellen i formatet dd-mm-åå, ellers tror Excel at det er tekst.

Jeg har angivet at cellerne er dato-celler, men det nytter jo ikke så meget hvis brugeren angiver noget fejlagtigt.

b_hansen --> Hvordan gør man det?

Jeg har fundet en anden løsning.... jeg benytter CDate(txtDato.Text) når jeg skriver til cellen.

1. Formater Celler
2. Vælg tal
3. Vælg Brugerdefineret

Herfra skulle hjælpen kunne bruges *S*

Brug denne:

Den kunne ligge på OK-knappen
Sub OK()
Formular.Hide

Do
  Svar = textbox.text
  Msgbox "Indtast korrekt dato"
  Formular.Show
Until IsDate(svar) = true

Formular .Hide

End sub

Der sneg sig en lille fejl ind:

Sub OK()
Formular.Hide

Do
  Svar = textbox.text
  Msgbox "Indtast korrekt dato"
  Formular.Show
loop Until IsDate(svar) = true

Formular .Hide

End sub

Hej Jette1

Du skriver du selv har fundet en løsning, men tvinger den brugeren til at indtaste en rigtig dato, så du er sikker på at det er en dato du modtager i cellen?

Det gør ovenstående kode *S*

b_hansen --> hvorfor mener du jeg skal vælge "Tal" i formatet for cellen? Så kan jeg da ikke sortere på dato !? ... eller er der noget jeg overser?..

rvm --> Når jeg skriver manuelt i en datocelle i formatet dd-mm-åå, opfattes det automatisk som en dato. Derfor troede jeg til at starte med, at hvis bare brugeren også indtaster i dette format, ville det også virke når tekstboksens indhold blev overført.
Imidlertid er man nødt til at benytte CDate(), når der overføres fra en tekstboks .... jeg har hele tiden brugt IsDate() til at tjekke om det er en dato der er indtastet.....

OK :-)

Jeg er imidlertid stødt på et andet problem .... hvis brugeren taster datoen uden at adskille dag, måned og år med tegn, som f.eks. 070202, så er IsDate() = true, men cellen kan slet ikke finde ud af det. Her bliver det til 14-03 92 hmmmm....... Men den smider jeg lige i et nyt spørgsmål...

Hvis du indtaster i en celle, vil jeg igen foreslå, at du laver et brugerdefineret format.

test lige den her så:

Sub chkdato()
If IsDate(txtDato.Text) Then
    If InStr(1, txtDato.Text, "-") Or InStr(1, txtDato.Text, "/") Then
        txtDato.Text = CDate(txtDato.Text)
    Else  'fanger 100202
        txtDato.Text = CDate(Format(Str(txtDato.Text), "@@@-@@-@@"))
    End If
    [a2].Value = txtDato.Text
End If
End Sub