Hey Molly,

Idd, normaliter is de cel in de originele lijst ofwel leeg, ofwel gevuld met "?", of "? ?", of "? Familienaam" ofwel gevuld met "voorna(a)m(en) familienaam".

Ivm die datums maakt het voor dit project in eerste instantie niet uit of ze voor of na 1900 vallen aangezien er niet mee gerekend moet worden en het puur om de weergave te doen is.
Dus bij de standaard datums van voor 1900 in de originele lijst is het gewoon de "/" vervangen door een "-".
Voor datums na 1900 is er een lichte aanpassing nodig omdat in de standaardweergave voor dag geen voorloop-nul wordt vermeld en ik die er in mijn weergave wel graag bij heb.
Maar dat los ik ook vrij simpel op (heb ik héél vaak moeten doen in voorgaande projecten).

maar niet elke vermelding wordt als zuivere datumvermelding weergegeven...
Soms staat er voor de datum zelf de woorden "voor", "na" of "circa" en daar begint het dan wat ingewikkelder te worden, niet perse de code zelf maar wel alle mogelijke scenario's en
bijhorende gewenste resultaten die er dan in verwerkt moeten worden.

Als er "circa" staat moet dit sowieso vervangen worden door "ca." ...
Voor volledige datumvermeldingen met deze woorden ervoor die vóór 1900 vallen is het nog niet té ingewikkeld omdat er nog steeds (met uitzondering van de wijziging van "circa" naar "ca.")
gewoon "/" door "-" vervangen moet worden.
Voor datums die nà 1900 vallen is dat dan wel al iets ingewikkelder ivm de voorloop-nul die moet toegevoegd worden bij dagen.

Soms wordt er ook gewoon maand en jaar vermeld al dan niet voorafgaand door "voor", "na" of "circa" of enkel maar het jaar al dan niet voorafgaand door "voor", "na", "circa.

om een voorbeeld te geven van de lastigste combinatie :

"circa 9/01/1945" moet dan worden "ca. 09-01-1945" .


groetjes,
BlackDevil

Hey Molly,

Trouwens, alle datums, uit eender welke eeuw, die door een tekst worden voorafgegaan zijn ook gewoon tekst en kan je op dezelfde manier aanpakken.
Als er bv. een woord voor staat dat mag behouden blijven kan je dat ook onmiddellijk laten staan, en degene die moeten wijzigen met een 'replace' regelen, m.a.w. enkel de datums die door Excel als dusdanig worden beschouwd zullen een andere werkwijze vereisen, maar dat lukt wel?

Inderdaad, dat bedoelde ik met mijn zeer uitgebreide uitleg 

En ja, ik denk wel dat ik met jouw voorbeeldje  al voor een groot stuk verder kan. Het is zoals je zegt een klein beetje puzzelwerk en dan vooral de juiste volgorde in elkaar puzzelen voor het uitfilteren van de diverse uitzonderingen met hun respectievelijke verwerking :-).

Ik ga er alvast mee aan de slag en als ik toch problemen tegen kom dan laat ik het hier wel eventjes weten.

groetjes,
BlackDevil

*****UPDATE*****

Hey Molly,


Na succesvol testen van alle mogelijke scenario's is dit mijn eindresultaat :

Sub datums()
  '----- locatie datumveld met onmiddellijke omzetting "/" naar "-"
  dat = Replace("9/01/1945", "/", "-")
  '----- aanmaak array voor datumveld
  If UBound(Split(dat, " ")) = 0 Then
    deel = ""
    arr_dat = Split(dat, "-")
  Else
    deel = Split(dat, " ")(0) & " "
    arr_dat = Split(Split(dat, " ")(1), "-")
  End If
  If deel = "circa " Then deel = "ca. "
  '----- als datum zelf uit drie delen bestaat checken en eventueel aanpassen aantal cijfers dag-deel
  If UBound(arr_dat) = 2 Then dag = arr_dat(0)
  If Len(dag) = 1 Then arr_dat(0) = "0" & dag
  '------ gecorrigeerde waarde
  dat = deel & Join(arr_dat, "-")
End Sub


groetjes,
BlackDevil

@Molly,

Uiteraard    anders had ik het hier niet geplaatst 

groetjes,
BlackDevil

@Molly,

Bedankt alweer voor jouw hulp  .
Toen ik aan dit project begon was het de allereerste keer dat ik gebruik maakte van de functies 'InStr' en 'Replace' waardoor ik in mijn code-blok veel overbodige tussenstappen had geschreven.
Door jouw eenvoudigere opbouw inzake de omzetting van de namen heb ik iets meer inzicht gekregen bij het gebruik van de functies 'InStr' en 'Replace' waardoor ik nu voor het geheel (namen, datums én plaatsen) een goed werkend codeblok heb kunnen opbouwen waarmee ik mijn lijsten snel en correct kan omzetten in de gewenste weergave.

Nu, ik zou BlackDevil ni zijn moest het hiermee afgerond zijn natuurlijk  want die omzetting was nog maar een eerste deel van het volledige project.
Die specifieke weergave heeft uiteraard een specifiek doel.
Om dat doel te bereiken zullen, alvast voor mij toch als VBA-amateurke  , de volgende stappen alweer een mooie uitdaging zijn.
Ik probeer alvast, zoals altijd, dit eerst zelf in orde te krijgen (zo leer ik het best en liefst iets bij) maar ik vermoed toch dat ik op een gegeven moment toch op een klein hindernisje zal stuiten waarbij ik opnieuw wat hulp zal kunnen gebruiken.
Maar in dat geval plaats ik het hier dan wel  .

groetjes,
BlackDevil

Hey Molly,

Bedankt voor je bemerking.
Inderdaad, in het bestandje dat jij net hebt bijgevoegd geeft hij niet de gewenste resultaten, noch in rij 9, noch in rij 8 en noch in rij 2 zelfs.
Het probleem bij rij 8 en 9 is te wijten omdat mijn variabele "dag" niet geleegd werd in mijn codeblok (vermoed ik).

Echter is dat code-blokje in de definitieve complete code iets anders verwerkt :

'----- omzetting van de datums
    For d = 3 To 7 Step 2
      If Cells(a, d) <> "" Then
        '----- locatie datumveld met onmiddellijke omzetting "/" naar "-"
        dat = Replace(Cells(a, d), "/", "-")
        '----- aanmaak array voor datumveld
        If UBound(Split(dat, " ")) = 0 Then
          deel = ""
          arr_dat = Split(dat, "-")
        Else
          deel = Split(dat, " ")(0) & " "
          arr_dat = Split(Split(dat, " ")(1), "-")
        End If
        If deel = "circa " Then deel = "ca. "
        '----- als datum zelf uit drie delen bestaat checken en eventueel aanpassen aantal cijfers dag-deel
        If UBound(arr_dat) = 2 Then dag = arr_dat(0)
        If Len(dag) = 1 Then arr_dat(0) = "0" & dag
        '------ gecorrigeerde waarde wegschrijven
        Sheets("Blad2").Cells(a, d + 1) = deel & Join(arr_dat, "-")
      End If
    Next d
waarbij de "a" variabele uit de hoofdloop komt van de betreffende rij

Op deze manier heb ik die 'foutieve' resultaten uit rij 8 en 9 van het betreffende bestandje niet, MAAR heb ik wel een ander klein
obstakel gevonden bij de gecorrigeerde weergave mbt de datums van nà 1900.
Maar denk wel dat ik weet wat ik moet aanpassen om dit te voorkomen... ik ga het vlug nog eens grondig bekijken en laat mijn oplossing nog wel weten :-).

groetjes,
BlackDevil

@Molly,

Het is inderdaad een beetje vreemd...

Als ik mijn laatste versie van dat code-blok toepas op jouw bestand uit reactie #24 dan heb ik idd nog steeds die foute weergave op rij 8 en 9
maar als ik datzelfde code-blok toepas op jouw bestand uit reactie #11 dan geeft hij op rij 8 en 9 de correcte weergave.
Misschien heeft dat te maken met het feit dat in het bestand van reactie #11 de volledige code staat waarvan het betreffende code-blokje een onderdeel is?

groetjes,
BlackDevil

@Molly,

Mea Culpa 
Ik stond net op het punt om te vertrekken (dochter van school halen) toen ik daarnet nog snel reageerde waardoor ik fout was met dat 'test' bestand uit reactie #11.

Het eerdere bestand, waarmee ik al die foutmeldingen dus NIET heb, was het testbestand dat ik zelf hier had geplaatst  ..
een daarmee heb ik die fouten op rij 8 en 9 sowieso niet...

maar in mijn werkelijke bestand (dus NIET mijn testbestand) staan alle kolommen sowieso ingesteld op tekst waardoor dan meteen die datumnotatie voor datums nà 1900 ook sowieso opgelost zijn.

Het enige dat ik van foutieve weergave nog had was ingeval er enkel maand en jaar vermeld staat en de maand dan kleiner is dan 10 (dus maar één cijfer) en dat heb ik opgelost door dezelfde voorwaarde toe te passen als voor het 'dag'-deel, dus gewoon 2 extra lijntjes code.


Maar er is wel duidelijk een verschil tussen het "datum"-codeblok op zichzelf (dan krijg ik de fouten op rij 8 en 9 wél) en het "datum"-codeblok geïntegreerd in de volledige sub (dan krijg ik de fouten op rij 8 en 9 niet).


groetjes,
BlackDevil