Dat opsplitsen daar heb ik geen problemen mee, het verwijderen van een voorloopnul of een voorloopletter dat is ook het probleem niet. Dat kan in enkele minuten gefixt worden.
Het mooiste zou zijn dat ik die gegevens via copy paste, in een ruk, zou kunnen inbrengen in het voorbeeldje dat hier al getoond is en dan op klikken drukken en de datums verschijnen.
Dan kan ik die uitkomst dan weer via copy paste in mijn bestand zetten. Maar dat is een illusie zeker? Zoals ik al zegde ik kan veel in excel maar VB programmeren is niet mijn ding.

Hier komt het

Hallo Ignace,

ik merk dat je gewoon de datums handmatig hebt overgezet.
Niet enkel ga je zo snel fouten krijgen, je zal voor elke ingave dit handmatig moeten doen.
Ik verwachtte dat je dit via een formule zou doen in de cel onder Dag, Maand en Jaar en deze formule gewoon zou doortrekken.
Daar kon ik dus op verder werken zodat bij elke "Paste" van jou de "Huidige" datum zou verschijnen achter de Republiekeinse.

Bovendien staan er in de gegevens nog steeds afkortingen van maanden en ik weet niet hoe men daar aan komt.
Tja, de eerste drie letters van de R-maand, en als er twee dezelfde zijn dan maar 4 letters om het onderscheid te maken (bvb Vendemiaire en Ventose): misschien "vend" en "vent" ? Maar dat kan ik (of Excel niet met zekerheid weten).
Zo staat er voor  "Prerial" in je bestandje de afgekorte naam "prai", dus 4 letters, terwijl er geen reden is om er 3 (pra) van te maken.
Als je wilt dat je data straks juist zijn, dan moeten de "regels" accuraat zijn.

Als je bedenkt dat er als "dag" ook al gewerkt wordt met een voorloopnul en soms zonder.....

Als volgende maandnamen voor jou overeenkomen met de gebruikte afkortingen dan kan ik dat in de database laten verwerken:

Vendemiaire-vend
Brumaire-brum
Frimaire-frim
Nivose-nivo
Pluviose-pluv
Ventose-vent
Germinal-ger
Floreal-flo
Prairial-prai
Messidor-mes
Thermidor-ther
Fructidor-fruc
Complementair-com
Op naar het volgend probleem, de voorloopnul en de "J" voor het R-jaar  (Hoe komt men aan een J (in het frans en in de ardennen?)

SoftAid              

Waarom zou ik dit via een formule doen. Ik moet naar 3 kolommen dus het makkelijkst is via gegevens splitsen.

Het zag er voor mij naar uit alsof je het even handmatig had overgezet, maar goed, mij gelijk...

Wat de maand met 4 letters is kan ik makkelijk omzetten naar de eerste drie lettters.

Als je naar drie letters gaat, dan krijg je dubbele. Dat heb ik al gemeld in mijn vorig bericht:

(bvb Vendemiaire en Ventose): misschien "vend" en "vent"
Ik zie dan ook meer heil in het extraheren van 4 tekens uit de R-datum, dan komt er voor 3-letter afkortingen een "-" bij, maar daar kan je wel mee werken.

Waarom was dit zo? Omdat de indexeerder dat zo heeft ingegeven. Voor gewone datums hanteren we de regel DD-MM-JJJJ. Voor de franse datums was er niet echt een afspraak.

Het gaat er mij om dat er afspraken gemaakt worden over de weergave, om er dan met Excel mee te kunnen werken.
Als er geen vaste regel is, dan moeten we dat rechtzetten en regels invoeren voor de invoer of de verwerking.

Wat denk je ?

Groeten, en tot morgen

SoftAid              

Hallo Ignace,

met je nieuwe bstandje, en je nieuwe benamingen voor (sommige) R-maanden kom ik niet verder.
Er mankeren nog 7 maanden. Daar zonder kan ik geen overeenkomstige lijst maken.

Graag alternatieve benamingen voor alle maanden:
Vendemiaire
Brumaire
Frimaire
Nivose
Pluviose
Ventose
Germinal
Floreal
Prairial
Messidor
Thermidor
Fructidor
Complementair

Anders mag jij ze ook direct volluit in de kolom "Maand" zetten. Met voorbeeldbestandje, aub...

SoftAid              

Hallo Ignace,

ik heb een bestandje bijgevoegd waarin je in kolom B, C, D respectievelijk 29 datums in de vorm van Dag, (afgekorte) maand en Jaar kan invullen volgens de Republikeinse kalender. Na invullen en een druk op de knop verschijnen de Nu-Datums in kolom E.

Ik hoop dat je hiermee verder kan, anders horen we het graag en passen we het aan.

Groeten,

SoftAid              

Dag,
Bedankt, het lijkt te werken. Kan ik dat zelf aanpassen naar bijvoorbeeld 50 datums ipv nu 29 datums? Om er 300 tot 400 om te zetten zou dit iets handiger zijn. Telt wat makkelijker dan 29. 

Hallo Ignace,

Je kan de macro ook aanpassen zodat hij gaat tellen hoeveel rijen je invult, en aan de hand daarvan de juiste aantal loops laat maken. Daar maak je dan gebruik van:
X = Cells(Rows.Count, "B").End(xlUp)  'om de laatste rij in kolom B te berekenen
en dan gebruik je die X weer in de loop als einde:
For R = 2 To X


graag gedaan 

SoftAid