datum

[Janusje]

Wanneer ik de datum in excel wil zetten dd-mm-jjjj, wordt het als volgt in excel gezet mm-dd-jjjj. Mijn code is als volgt:

Private Sub CommandButton1_Click()
Dim laatsteladen As Integer
'Formuliernummer invullen volgens juiste format:
If txtbegintijd.Text = "" Then
    Call MsgBox("De begintijd is niet ingevuld", vbInformation)
    txtbegintijd.SetFocus
    Exit Sub
    
'Datum invullen volgens juiste format:
ElseIf Not ((txtdatum.Text Like "##-##-####") And IsDate(txtdatum.Text)) Then
    Call MsgBox("Datum alsvolgt invoeren: dd-mm-jjjj", vbInformation)
    txtdatum.SetFocus
    Exit Sub
Else
    datum = Format(txtdatum.Text, "dd-mm-yyyy", vbMonday, vbFirstJan1)
End If

'Formuliernummer invullen volgens juiste format:
If txtnaam.Text = "" Then
    Call MsgBox("De begintijd is niet ingevuld", vbInformation)
    txtnaam.SetFocus
    Exit Sub

Else

Blad1.Activate

laatsteladen = Sheets("laden").Range("C65536").End(xlUp).Row

Cells(laatsteladen + 1, 4) = txtbegintijd.Text
txtbegintijd.Text = ""

Cells(laatsteladen + 1, 5) = txteindtijd.Text
txteindtijd.Text = ""

Cells(laatsteladen + 1, 1) = txtnaam.Text

Cells(laatsteladen + 1, 3) = txtdatum.Text

End If
End Sub

Hoe krijg ik dit goed? Alvast bedankt.

 

[Axel Hagg]

Dag Janusje,

Selecteer de kolom waar de datum in komt te staan.

Klik op Opmaak - Celeigenschappen - Klik op de tab Getal en kies Datum. In het rechtervak kun je kiezen in welke opmaak Excel de datum weergeeft.

Succes,

Axel.

 

[Wigi]

Janusje, zie eens hier aub.

 

[Janusje]

Ik hou er de volgende keer rekening mee Wigi. Bedankt voor het melden.

De eigenschappen in Excel heb ik al op datum staan. Op dd-mm-jj, maar dan worden de dag en de maand toch omgedraaid.
Weet iemand misschien hoe ik dit op kan lossen?

 

[Axel Hagg]

> datum

Dag Janusje,

Staat de datumweergave in Windows wel op de Europese standaard? De weergave die je nu krijgt is de Amerikaanse methode maand/dag/jaar.

Succes,

Axel.

 

[Janusje]

De datumweergave staat gewoon op nederlands.
Daar kan het dus niet aan liggen.

 

[Axel Hagg]

Dag Janusje,

Kun je het bestand eens opsturen? Of althans het gedeelte met de datums?

Gegroet,

Axel

 

[Janusje]

Dag Axel,

Het werkt nog niet op de manier zoals ik het wil, maar ik heb nou de invoer van de datum veranderd naar jjjj-mm-dd in het invoerformulier en dan komt de datum wel goed binnen in Excel. Het bestand is veel te groot om te uploaden, dus ik heb de code van het formulier meegestuurd.
Bekijk bijlage Code formulier.doc

Groeten Janusje

 

[Axel Hagg]

Dag janusje,

Open Map2.zip en probeer het maar eens.

Gegroet,

Axel.

 

[Janusje]

Dag Axel,

Het bestand heb ik geprobeerd, maar in Excel wordt de datum nog steeds verkeerd neergezet. Dus ik denk dat het aan de instellingen ligt, als de datum bij jou wel goed wordt weggeschreven. In ieder geval bedankt en als je nog wat weet dan hoor ik het graag.

Groeten Janusje

 

[Axel Hagg]

> datum

Dag Janusje,

Ik heb de kolom Datum in tekst omgezet. Nu maakt de macro van de datum een tekst en zal dus niet meer worden veranderd.

Succes,

Axel.

 

[Janusje]

Dag Axel,
Bedankt voor de hulp!!
Groeten Janneke

 

[jofred]

Axel,

Ik zit een beetje met hetzelfde probleem als Janneke.
De oplossing die je aandraagt komt er in hoofdlijn op neer: maak de cel eerst maar op als tekst en vul hem vervolgens met de datumwaarde.
Ik begrijp daaruit dat er geen nette oplossing is om e.e.a. via systeem/programma-instellingen te regelen?


Probleem wat er nl. nog niet mee is opgelost is dat bij sorteringen je niet de juiste volgorde krijgt: bijv. 1 mei komt dan voor 30 april.
Zou er nog een andere oplossing mogelijk zijn?

 

[Axel Hagg]

Dag Jofred,

Je zou een twede kolom kunnen maken voor een datum notatie om te sorteren. Bijvoorbeeld: jjjj-MM-dd

Gegroet,

Axel.