Datumnotatie blijft terugspringen op Amerikaans

Stel hier je vraag over een Excel probleem
Gebruikersavatar
P.Sampers
Berichten: 8
Lid geworden op: 27 mei 2020 15:47

Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor P.Sampers » 30 sep 2020 13:37

Hallo allemaal,

Ik heb een formulier gemaakt dat men kan invullen. Bovenaan het formulier staat het veld waar men de datum van invullen selecteert. Met behulp van gegevensvalidatie "Lijst" heeft de gebruiker de keuze uit 4 datums, te weten: de datum van vandaag of een van de voorgaande 3 dagen.

Met behulp van VBA worden de ingevulde gegevens geplot in een data tabel. Dit doe ik met behulp van onderstaande VBA code:

Dim sourceSheet As Worksheet
Dim dataSheet As Worksheet
Dim nextRow As Integer

' Variabelen
Set sourceSheet = Sheets("Form")
Set dataSheet = Sheets("Data")

' Eerstvolgende lege rij op datasheet halen
nextRow = dataSheet.Range("B" & dataSheet.Rows.Count).End(xlUp).Offset(1).Row

' Antwoorden naar datatabel
dataSheet.Cells(nextRow, 2).Value = sourceSheet.Range("D3").Value
dataSheet.Cells(nextRow, 3).Value = sourceSheet.Range("D5").Value
dataSheet.Cells(nextRow, 4).Value = sourceSheet.Range("D7").Value
dataSheet.Cells(nextRow, 5).Value = sourceSheet.Range("F9").Value
dataSheet.Cells(nextRow, 6).Value = sourceSheet.Range("F11").Value
dataSheet.Cells(nextRow, 7).Value = sourceSheet.Range("F13").Value
dataSheet.Cells(nextRow, 8).Value = sourceSheet.Range("F15").Value
dataSheet.Cells(nextRow, 9).Value = sourceSheet.Range("F17").Value
dataSheet.Cells(nextRow, 10).Value = sourceSheet.Range("F19").Value
dataSheet.Cells(nextRow, 11).Value = sourceSheet.Range("F21").Value
dataSheet.Cells(nextRow, 12).Value = sourceSheet.Range("F23").Value
dataSheet.Cells(nextRow, 13).Value = sourceSheet.Range("E25").Value
dataSheet.Cells(nextRow, 14).Value = sourceSheet.Range("E27").Value
dataSheet.Cells(nextRow, 15).Value = sourceSheet.Range("E29").Value


In cel D3 staat de datum.

Mijn probleem is dat Excel de datum iedere keer wegschrijft volgens de Amerikaanse datumnotatie, dus mm/dd/jjjj.
Het wordt echter gewoon ingevuld op het formulier volgens de Europese datumnotatie, dus dd/mm/jjjj

Hoe komt het dat Excel het wegschrijft volgens de Amerikaanse datumnotatie?

Ik heb van alles geprobeerd:
- De cel eigenschappen van alle cellen op het werkblad waar de datatabel staat ingesteld op dd/mm/jjjj
- Idem voor enkel de kolom waar de datums in komen te staan op ditzelfde werkblad
- Idem voor enkel de kolom in de tabel
- Idem voor de gehele tabel
- Idem voor de bronlijst voor de gegevensvalidatie functie
- Idem voor de cel op het formulier waar men de datum instelt

Ik zit er nu maar aan te denken om het via VBA gedwongen de opmaak van de datum telkens te laten aanpassen maar dit moet toch makkelijker op te lossen zijn?
Zit er misschien ergens in de opties van Excel een standaard datumnotatie verstopt die momenteel op Amerikaans staat?

Of kan het komen doordat ik in de bronlijst voor gegevensvalidatie de functie =VANDAAG gebruik?

Als iemand hier ervaring mee heeft en weet hoe dit op te lossen dan hoor ik het graag.

In de bijlage zit een kale versie van het document.
Formulier.xlsm
(57.84 KiB) 25 keer gedownload
Bij voorbaat dank!
Met vriendelijke groet,

Philip Sampers
Ad Becude
Berichten: 117
Lid geworden op: 30 apr 2019 15:15

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor Ad Becude » 30 sep 2020 19:17

Als je jou bestandje opent, word je gelijk uitgemaakt voor Dummy.....in koeienletters.
Op deze manier zullen er niet veel zijn die je willen helpen.
Met vriendelijke groeten, Ad
Gebruikersavatar
P.Sampers
Berichten: 8
Lid geworden op: 27 mei 2020 15:47

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor P.Sampers » 02 okt 2020 13:51

Haha Ad je moet de Macro's activeren anders kom je inderdaad op een werkblad dat de collega in kwestie uitlegt dat hij/zij een dummy is omdat hij/zij de werkinstructie niet heeft gevolgd en het bestand in een omgeving heeft geopend waar macro's niet werken ;) Het document functioneert enkel met macro's dus dit maar gebouwd ter voorkoming van onkundig gebruik en verlies van data.

Als je het document opent in de Excel applicatie en de Macro's toestaat dan zou je niet langer voor dummy uitgemaakt moeten worden ;)

Ik kan e.v.t. ook een andere versie uploaden zonder dit "opvang" werkblad.
Met vriendelijke groet,

Philip Sampers
Ad Becude
Berichten: 117
Lid geworden op: 30 apr 2019 15:15

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor Ad Becude » 02 okt 2020 14:17

Als je het document opent in de Excel applicatie en de Macro's toestaat dan zou je niet langer voor dummy uitgemaakt moeten worden ;)
Ik sta Macro's altijd toe, maar als je een bestand met macro's voor het eerst opent moet je altijd macro's toestaan. Dus voor dat je macro's toestaat word je al voor dummy uitgemaakt.
En voor mij hoef je geen aangepast bestand te posten.
Met vriendelijke groeten, Ad
jkpieterse
Site Admin
Berichten: 769
Lid geworden op: 30 jan 2017 14:32

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor jkpieterse » 02 okt 2020 14:22

Heel vreemd, naar mijn mening had het moeten werken. In ieder geval werkt het met deze aanpassing:

Code: Selecteer alles

dataSheet.Cells(nextRow, 2).Value = CDate(sourceSheet.Range("D3").Value)
Groetjes,
Jan Karel Pieterse
jkp-ads.com
Gebruikersavatar
P.Sampers
Berichten: 8
Lid geworden op: 27 mei 2020 15:47

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor P.Sampers » 19 okt 2020 11:30

Hallo Jan Karel,

Dank voor jouw reactie. Jouw code dwingt Excel om de gegevens als datum te noteren (dit ging al goed) maar de datumopmaak blijft Amerikaans (mm/dd/yyyy). Dit heb ik herhaaldelijk getest.
De oorzaak van het probleem weet ik nog steeds niet maar ik heb het opgelost door, na het gedeelte van de code waar de data wordt gekopieerd en geplakt, het volgende stukje code toe te voegen:

'bewerk datum format
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"


De macro past de opmaak van de datum dus nu iedere keer aan nadat hij deze eerst gekopieerd en geplakt heeft. Een simpele oplossing maar ik had graag geweten waar dit probleem überhaupt door ontstaat.

Vriendelijke groet,

Philip
Met vriendelijke groet,

Philip Sampers
jkpieterse
Site Admin
Berichten: 769
Lid geworden op: 30 jan 2017 14:32

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor jkpieterse » 19 okt 2020 11:44

Als jij in een leeg Excel bestand het venster celeigenschappen opent en je klikt op Datum, wat staat er dan ingevuld bij "Locale" (weet niet hoe dat in Nederlandse Excel heet, staat onder het datumformat lijstje)
Groetjes,
Jan Karel Pieterse
jkp-ads.com
Gebruikersavatar
P.Sampers
Berichten: 8
Lid geworden op: 27 mei 2020 15:47

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor P.Sampers » 19 okt 2020 15:46

Lege Excel --> Celeigenschappen --> Onder tabblad "Getal" kies ik in de lijst de optie "Datum" --> Onder "Locatie" staat "Nederlands".

Dit zijn mijn default instelling.
Afbeelding 1.JPG
Afbeelding 1.JPG (53.37 KiB) 227 keer bekeken

Het document in kwestie staat in een sharepoint database die gekoppeld is aan Microsoft Teams. Ik heb het vermoeden dat hier ergens de oorzaak in kan zitten. Doordat documenten vanuit Microsoft Teams worden opgestart raken ze vaker bepaalde instellingen kwijt. Zodoende moet ik vaak documenten bij het opstarten al Macro's laten runnen om te zorgen dat alles goed staat alvorens een gebruiker het document kan/mag bewerken. Erg vervelend.
Met vriendelijke groet,

Philip Sampers
jkpieterse
Site Admin
Berichten: 769
Lid geworden op: 30 jan 2017 14:32

Re: Datumnotatie blijft terugspringen op Amerikaans

Berichtdoor jkpieterse » 19 okt 2020 17:13

Dit ligt aan de browser instellingen denk ik. Ergens moet je taal en of lokatie kunnen instellen
Groetjes,
Jan Karel Pieterse
jkp-ads.com

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 9 gasten