VBA kode til datoformat

Det er da uvenligt. Hvorfor ikke teste på, om feltet er en dato, og så selv formatere det som ønsket.

Tak - Det kunne måske også være en fin ide. Kan du vise hvordan?

prøv med
    If IsDate(txtDato.Text) Then
        txtDato.Text = Format(CDate(txtDato.Text), "dd-mm-yyyy")
    Else
        MsgBox "Fejl i dato"
        txtDato.SetFocus
        Exit Sub
    End If

jeg har ikke testet det.

Tak - så er jeg på rette vej. Dog er der det problem, at skriver man i formularen 01-11-2014, bliver det i mit ark (hvortil jeg returnerer data) til 11-01-2014. Den bytter altså rundt på dag og måned.

Skriver jeg istedet 31-03-2014 bliver det rigtig returneret, men denne celle bliver ikke opfattet som en Dato Celle men istedet Standard.

Sådan returnerer jeg data til et ark:
With ActiveCell
    .Value = lstMedarbejdernavn.Text
    .Offset(0, 1).Value = txtDato.Text

Kan du se hvad går galt?

man må på en enkelt måde styre land så dato altid bruges i dk-formatet.
Det ligger udenfor mine evner - måske supertekst kan. Prøv at skrive en intern besked til http://www.eksperten.dk/profil/supertekst
med link til dette spg.

Rem lidt justering af VBA
Dim dato As Date
Private Sub cmdGem_Click()
If IsDate(txtDato.Text) Then
        txtDato.Text = Format(CDate(txtDato.Text), "dd-mm-yyyy")
        dato = txtDato
    Else
        MsgBox "Datoformat skal være dd-mm-yyyy"
        txtDato.SetFocus
        Exit Sub
    End If


Worksheets("Tidsrapportering").Activate
Range("A2").Select
If Range("A2").Value = "" Then
    Range("A2").Activate
Else
    Range("A2").CurrentRegion.Select
    ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If
With ActiveCell
    .Value = lstMedarbejdernavn.Text
    .Offset(0, 1).Value = dato  'txtDato.Text
    .Offset(0, 2).Value = lstType.Text
    .Offset(0, 3).Value = "=VLOOKUP(RC[-3],Lister!C4:C5,2,FALSE)"
End With
   

Unload Me

End Sub