Excel case med dato

Skal du ikke konvertere til en dato - du arbejder jo på en string

Enden prøv at dim'me som Date, eller brug CDate (er der ikke en funktion der hedder det?)

Din indtastning opfattes som en tekststreng. Derfor kan du ikke bruge den på den måde du gør. Fx vil den opfatte at 01-02 er mindre end 31-01. Du er nødt til at bruge rigtige datoer.

Ellers kan du jo bare gøre sådan her:

  Dim svar As String
  svar = InputBox("Skriv dato")
  Select Case Right(Svar,1)
  Case "1"
    Text1.Text = 1
  Case "2"
    Text1.Text = 2
  End Select

I øvrigt holder jeg mig ALTID fra inputboxe, da jeg ikke kan styre hvad brugeren kan/må indtaste.

Jeg laver en ekstra form, som jeg bruger .Show og .Hide på - hvis du gør det, kan brugeren jo f.eks. vælge en dato fra fx. en dropdownbox med gyldige datoer - eller du har mulighed for at sikre, at der f.eks. ikke indtaster bogstaver, og/eller indtaster i formatet ##-## osv.

Bare et tip :o)

Det burde være nok at bruge Dim svar as Date. Og så ellers den oprindelige kode

Så virker det. Tak for hjælp og tips.

Velbekomme!  Tak for point.

Selv tak - hvis du vil bruge en form og ikke en inputbox, og skal fx. umuliggøre indtastning af bogstaver, kan du bruge _Keypress eventen på din textbox - skriv og spørg, hvis det er noget du får brug for...

Tak martin moth. Der er masser jeg får brug for hen ad vejen.