AddItem Date vender op og ned på dag-måned...

Prøv at kontrolle de generelle indstillinger for Dato-felter.

Hvor skal jeg gøre det ?

Indstillinger > Kontrolpanel > International > Dato

Jeg har haft samme problem på et tidspunkt og fik hjælp her på eksperten. Løsningen var:

Opret følgende ved at dobbelklikke på din userform

Private Sub UserForm_Activate()
TxtDate.Text = Format(Now, "d/m/yyyy")
End Sub

mvh

Laje

Hmm... det korte datoformat er indstillet til 09-11-2002, altså i dag, og det skulle det også.

Prøv lige at de det Bak skrev til mig her, (det med at gange med 1) http://www.eksperten.dk/spm/275795

Sub UserForm_Initialize()
    ComboBox1.Clear
   
    ComboBox1.AddItem Date
    ComboBox1.AddItem Date - 1
    ComboBox1.AddItem Date - 2
    ComboBox1.AddItem Date - 3
    ComboBox1.AddItem Date - 4
    ComboBox1.AddItem Date - 5
    ComboBox1.AddItem Date - 6
    ComboBox1.AddItem Date - 7
End Sub
Min makro ser sådan ud. Hvor indsætter jeg linien ?

Jeg er lidt på tynd is, for jeg fik selv hjælp til denne del, men prøv at gå i VBA. Dobbeltklik på din userform, så skulle du meget gerne kunne indsætte min del her, så den lyder:

Private Sub UserForm_Activate()
Combobox1.Text = Format(Now, "d/m/yyyy")
End Sub

prøv  ;-)

prøver lige:=)...er selv VBA-mongol*G*

Det gik slet ikke... jeg opnåede kun at ændre 07-11-02 til 11-7-02...

prøv lige for testens skyld at lave en ekstra kolonne, der ganger den indsatte værdi med 1. Formater den kolonne som det format dy gerne vil have dd-mm-åååå.

Samme metode som den bak anbefalede kan jeg se. Men der byttes rundt alligevel; 10. november bliver til 11-10-02...

Er det kun datoer hvor dagene < 13?

Jeg vil gerne teste arket for dig, for at se om det samme sker på min computer - med mindre data er følsomt eller noget?

???????du har ret????? Den dato der vises rigtigt er ydermere venstrejusteret???????

meget gerne !

Har du mulighed for at uploade??

hmm - nej, kun mail. Jeg kunne selvfølgelig kopiere makroen og sætte den ind her, men der er referencer til andre ark.

Du kan zippe og sende til laje3@mail.dk så skal jeg se på det  ;-)

Det fylder ikke så meget, så jeg undlod at zippe, håber det er ok:=)?

Det er helt ok, kigger lige på det!

Jeg har bokset lidt rundt med det. Jeg har sat en værdi som i dette eksempel:

Private Sub CommandButton1_Click()
    Dim wksData As Worksheet
    Dim ctl As Control
    Dim lRow As Long
   
  ComboBox1.Value = Format(Date, "d/m/yyyy")
    Set wksData = Worksheets("Data")
    ' Finder næste ledige række i Data-arket.
    lRow = wksData.Range("A65536").End(xlUp).Row + 1

Det løser det ikke - aner simpelt hen ikke hvordan du får den til det. Måske Bak er mned på en lytter imorgen, så kan han måske hjælpe?

Good night!

Foreløbig tak skal du have - man skulle tro, at der var tale om en bug i excel eller sådan noget - jeg kan simpelthen ikke rode mig ud af det. Og anvendeligheden reduceres til nul, hvis funktionen ikke duer. Måske et par timer på øjet vil gøre godt.....ZZzzz

Sub UserForm_Initialize()
    Dim lCount As Long
    ComboBox1.Clear
   
    For lCount = 0 To 7
        ComboBox1.AddItem Format(Date - lCount, "dd-mm-yyyy")
    Next lCount
End Sub

Du kan selv bestemme hvilken rækkefølge d'erne, m'erne og y'erne kommer samt antallet.  "dd. mmmm yyyy" eller "dd-mm-yy" - find selv på flere

Jeg går udfra, at din celle er formateret til det datoformat du gerne vil have, og at datoen skal stå i kolonne A - ret evt. selv til en anden kolonne.

Private Sub CommandButton1_Click()
    Dim lRow As Long
   
    With Worksheets("Data")
        lRow = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & CStr(lRow)).Value = CDate(ComboBox1.Text)
    End With
End Sub