datum

Status
Niet open voor verdere reacties.

Janusje

Gebruiker
Lid geworden
14 feb 2007
Berichten
16
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:

Code:
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.
 
Laatst bewerkt:
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.
 
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?
 
> 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.
 
De datumweergave staat gewoon op nederlands.
Daar kan het dus niet aan liggen.
 
Dag Janusje,

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

Gegroet,

Axel
 
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
 
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
 
> 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.
 

Bijlagen

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?
 
Dag Jofred,

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

Gegroet,

Axel.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan