datum waarde wordt omgedraaid

[DCTALK]

Beste ,

in een lijst waarin wij onze calculatie registren zodat ze een nummer hebben, staan ook een 3tal kolommen waarin een datum komt te staan,
De invulling wordt gedaan via een userform.
De eigenschappen van de cellen staan op mm-dd-jjjj en heb nog eens wat andere instelling geprobeerd.

maar als ik een datum in het userform invul als 09-02-2013 dan komt er in de cel 02-09-2013 te staan dus 2 september ipv 9 februari
en in de ander kolom had ik de datum 12-02-2013 en dan wordt het 02-12-2013 dus december ipv februari maar in de 3e kolom komt het wel goed te staan.

Dit document wordt door meerdere mensen gebruik wel in een citrix omgeven dus iedereen heeft dezelfde excel versie. Maar zou dat er mee te maken hebben??
Misschien heeft iemand een oplossing, hoor het graag.

Kan het ook zijn dat je de celeigenschappen in het userform kan instelling op datum of iets dergelijks?

gr CvO

 

[Niels28]

probeer eens het volgende om de datum van het userform uit te lezen.

voorbeeld:

range("A1") = cdate(textbox1.value)

Niels

 

[DCTALK]

Beste Niels,

heb mij code hier onder staan, het gaat om de rode regels

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("nummering")

iRow = ws.Cells(Rows.Count, 2) _
  .End(xlUp).Offset(1, 0).Row

If Trim(Me.txtOmschr.Value) = "" Then
  Me.txtOmschr.SetFocus
  MsgBox "Alles invullen", vbExclamation
    Exit Sub
End If

If Trim(Me.txtOpdr.Value) = "" Then
  Me.txtOpdr.SetFocus
  MsgBox "Alles invullen", vbCritical
  Exit Sub
End If

If Trim(Me.txtInge.Value) = "" Then
  Me.txtInge.SetFocus
  MsgBox "Ook de datum INVULLEN!!", vbCritical
  Exit Sub
End If

If Trim(Me.txtMadeby.Value) = "" Then
  Me.txtMadeby.SetFocus
  MsgBox "Wie ben JIJ??", vbCritical
  Exit Sub
End If

'If txtTele.TextAlign <> "" Then
    'MsgBox "Dit is geen geldig telefoonnummer", vbCritical + vbOKOnly, "Type foutje zeker"
        'Exit Sub
        'End If

'If Trim(Me.txtTele.Value) = "" Then
    'MsgBox "Dit is geen geldig telefoonnummer", vbCritical + vbOKOnly, "Type foutje zeker"
        'Exit Sub
        'End If
        

If txtTele.TextLength < 10 Or txtTele.TextLength > 10 Then
        MsgBox "Telefoonnummer bestaat uit 10 cijfers! bij 0900 nummer extra 00", vbExclamation + vbOKOnly, "Input Error"
        KeyAscii = 0
        Exit Sub
        End If
          

ws.Cells(iRow, 2).Value = Me.ComboBox1.Value
ws.Cells(iRow, 3).Value = Me.txtOmschr.Value
ws.Cells(iRow, 4).Value = Me.txtOpdr.Value
ws.Cells(iRow, 5).Value = Me.txtCont.Value
ws.Cells(iRow, 6).Value = Me.txtTele.Value
[COLOR="#FF0000"]ws.Cells(iRow, 7).Value = Me.txtNota.Value [/COLOR]
[COLOR="#FF0000"]ws.Cells(iRow, 8).Value = Me.txtInge.Value[/COLOR]  
[COLOR="#FF0000"]ws.Cells(iRow, 9).Value = Me.txtVerz.Value [/COLOR]
ws.Cells(iRow, 10).Value = Me.txtCalc.Value
ws.Cells(iRow, 11).Value = Me.txtOpme.Value
ws.Cells(iRow, 13).Value = Me.txtCode.Value
ws.Cells(iRow, 19).Value = Me.txtMadeby.Value

Me.ComboBox1.Value = ""
Me.txtOmschr.Value = ""
Me.txtOpdr.Value = ""
Me.txtCont.Value = ""
Me.txtTele.Value = ""
Me.txtNota.Value = ""
Me.txtInge.Value = ""
Me.txtVerz.Value = ""
Me.txtCalc.Value = ""
Me.txtOpme.Value = ""
Me.txtCode.Value = ""
Me.txtOmschr.SetFocus
Me.txtCalc.SetFocus
Me.txtMadeby.Value = ""

  
    iRow = ws.Cells(Rows.Count, 2) _
  .End(xlUp).Offset(1, 0).Row

    ws.Cells(iRow, 2).Value = Me.txtOmschr.Value

'stop
Unload Me

CALCULATIE_NUMMER.Show

End Sub

 

[Niels28]

Ik zie dat je alle textbox value op "" zet en daarna het userform unload.
Met unload maak je hem al leeg dus die regels zijn overbodig.
wat het gedeelte net boven de unload moet doen begrijp ik ook niet want je vult eigenlijk niks in.

ws.Cells(iRow, 7).Value = cdate(txtNota.Value)
ws.Cells(iRow, 8).Value = cdate(txtInge.Value)
ws.Cells(iRow, 9).Value = cdate(txtVerz.Value)

Niels

 

[DCTALK]

Beste Niels,

het userfrom, wordt eerst ingevult, daarna leeg gemaakt in de excellijst met Value "". dan komt Unload die haalt het userform tijdelijk weg, omdat er dan een userform als popup die het nieuw te gebruiken nummer laat zien.
Vervolgens kun je op een knop drukken die het userform weer in beeld brengt.

heb je code geprobeerd, maar krijg een foutmelding type komt niet over een.

Ik zal nog ff kijken of er geen type fouten inzitten. dan probeer ik het nog een keer.

iig dank voor de moeite, mocht je nog iets weten hoor ik het graag.

gr CvO

 

[Niels28]

met de me. er voor?

ws.Cells(iRow, 7).Value = cdate(me.txtNota.Value)

of

ws.Cells(iRow, 7).Value = datevalue(me.txtNota.Value)

Niels

 

[DCTALK]

Dag Niels

Dat ga ik ook nog ff proberen. alvast bedankt.

 

[Niels28]

BTW de melding type komt niet overeen krijg je ook als er niks of iets anders dan een datum is ingevuld.

Niels