Goedenamiddag,

Ik heb vanuit mijn webapplicatie mbt mijn stamboom een lijst laten genereren van alle vermelde voorouders incl vermelding van de datums en plaatsen mbt geboorte, huwelijk en overlijden naar een excel-werkblad.
Nu is de weergave van al deze gegevens helemaal anders dan wat ik nodig heb dus gezien het grote aantal personen zou ik de omzetting naar de juiste weergave via VBA willen automatiseren naar een nieuw werkblad.
Ik weet dat ik voor de omzettingen van de persoonsnamen en de plaatsnamen de ‘split’ functie kan gebruiken en voor de weergave van de datums eventueel de ‘replace’ functies kan gebruiken maar heb daar zeer weinig ervaring mee en vooral ivm de persoonsnamen wordt het mij iets te ingewikkeld om dit zonder hulp tot een goed einde te brengen.

Volgende weergaven van de namen komen voor in de originele lijst in één kolom :

Voornaam Familienaam
Voornaam1 Voornaam2 Familienaam
Voornaam1 Voornaam2 Voornaam3 Familienaam
Voornaam Familienaam(deel1) Familmienaam(deel2)
Voornaam1 Voornaam2 Familienaam(deel1) Familmienaam(deel2)
Voornaam1 Voornaam2 Voornaam3 Familienaam(deel1) Familmienaam(deel2)
Voornaam Familienaam(deel1) Familmienaam(deel2) Familienaam(deel3)
Voornaam1 Voornaam2 Familienaam(deel1) Familmienaam(deel2) Familienaam(deel3)
Voornaam1 Voornaam2 Voornaam3 Familienaam(deel1) Familmienaam(deel2) Familienaam(deel3)

Gewenste weergave van bovenstaande voorbeelden verdeeld over 2 kolommen :

FAMILIENAAM Voornaam     |
FAMILIENAAM Voornaam1   |   Voornaam2
FAMILIENAAM Voornaam1   |   Voornaam2 Voornaam3
FAMILIENAAM(deel1) & (deel2) Voornaam   |   
FAMILIENAAM(deel1) & (deel2) Voornaam   |   Voornaam2
FAMILIENAAM(deel1) & (deel2) Voornaam   |   Voornaam2 Voornaam3
FAMILIENAAM(deel1) & (deel2) & (deel3) Voornaam   |   
FAMILIENAAM(deel1) & (deel2) & (deel3) Voornaam   |   Voornaam2
FAMILIENAAM(deel1) & (deel2) & (deel3) Voornaam   |   Voornaam2 Voornaam3

Soms is er ook een vermelding tussen haakjes die ik NIET nodig heb in de omgezette lijst.
Voorbeeld :

Petrus Andries (Van Steirthem) Van Sterthem

Dient dan te worden :

VAN STERTHEM Petrus   |   Andries


Ingeval de familienaam maar uit één woord bestaat dan is het vrij simpel om via de ‘split’-functie te werken en de string op te splitsen bij de spatie waarbij de laatste vermelding dan de familienaam is, de eerste vermelding de eerste voornaam is en de rest dan gewoon de andere voornamen zijn die in de tweede kolom dienen geplaatst te worden.
Maar het probleem waar ik niet uit kom zit hem dus bij familienamen uit meerdere woorden en/of als er een vermelding tussen haakjes aanwezig is.

Ik heb letterlijk zo duizenden namen om te zetten maar geen idee hoe ik dit tot een correct resultaat kan krijgen.

Alvast mijn oprechte dank voor elke bruikbare tip/hulp.

Groetjes,
BlackDevil

Hey Molly,

Bedankt voor jouw reactie...

Gelukkig heb ik in mijn stamboom zo géén van die speciallekes met dubbele familienamen zoals jij aanhaalt....
Enkel maar 'De", 'Van', 'Vande', 'Van de', 'Vanden', 'Van den', enz...
Ik dacht dus ook iets in die trant om gewoon dergelijke vermeldingen te laten toevoegen aan die laatste vermelding in de string.

Om er de vermeldingen tussen haakjes () van tussen te halen heb ik ondertussen al een werkende code gevonden.

En nee, zo worden de namen nu eenmaal door die webapplicatie weergegeven, daar heb ik geen controle over.
In de applicatie zelf zijn er aparte velden voor het invoeren van de namen bij de aanmaak maar als er naderhand een lijst wordt
gegenereerd staan de namen in één veld zoals aangehaald in mijn startbericht.


groetjes,
BlackDevil

Hallo BlackDevil,

zo worden de namen nu eenmaal door die webapplicatie weergegeven, daar heb ik geen controle over

Daar was ik al van overtuigd, en heb ook niets anders willen insinueren. Maar ooit zijn ze op die webapplicatie terechtgekomen, en het leek me erg onwaarschijnlijk dat de basisgegevens daarna vernield zouden zijn, dus waar die namen vandaan komen was dan totaal onbelangrijk.

Maar goed, ik ben heel tevreden dat je er zelf grotendeels uit bent geraakt
Als je er zin in hebt mag je altijd eens tonen hoe je het hebt aangepakt, wie weet volgt er nog ergens een tip om de code in te korten en/of ook die laatste horde te nemen.

Groetjes,
Molly

bij deze mijn amateuristisch code-blokje 

Sub namen()
'---------- eerste deel namen doorlopen en corrigeren
For a = 2 To 524288
'----- locatie van de bron-naam
  brnaam = Cells(a, 2)
'----- controle of bron-naam gekend is
  If brnaam = "" Or brnaam = "?" Then brnaam = "? ?"
'----- vermeldingen tussen haakjes verwijderen
  For i = 1 To 3
    iPos = InStr(brnaam, "(")
    iPos2 = InStr(brnaam, ")")
    If iPos > 0 Then
        brnaam = Left(brnaam, iPos - 2) & " " & Mid(brnaam, iPos2 + 2)
    End If
  Next i
'----- bron-naam (string) opsplitsen naar Array
  arr_s = Split(brnaam, " ")
'----- array maken met mogelijke onderdelen familienaam
  arr_delen = Array("De", "de", "Van", "van", "den", "Den", "der", "Der", "Vande", "Vanden", "Vander")
'----- familienamen uit meerdere delen verbinden met _ (underscore)
  For s = LBound(arr_s) To UBound(arr_s)
    For Each deel In arr_delen
      If arr_s(s) = deel Then
        zoek = s
        arr_s(s) = deel & "_"
      End If
    Next deel
  Next s
  tdlk = Join(arr_s, " ")
  brnaam = Replace(tdlk, "_ ", "_")
'----- gecorrigeerde string terug naar array splitten
  arr_doel = Split(brnaam, " ")
'----- familienaam en eerste voornaam vastleggen
  aantal = UBound(arr_doel)
  naam = UCase(Replace(arr_doel(aantal), "_", " ")) & " " & arr_doel(0)
'----- adhv aantal elementen in array eventuele extra voornamen vastleggen
  Select Case aantal
    Case 1
      xtrvrnm = ""
    Case 2
      xtrvrnm = arr_doel(1)
    Case 3
      xtrvrnm = arr_doel(1) & " " & arr_doel(2)
    Case 4
      xtrvrnm = arr_doel(1) & " " & arr_doel(2) & " " & arr_doel(3)
    Case 5
      xtrvrnm = arr_doel(1) & " " & arr_doel(2) & " " & arr_doel(3) & " " & arr_doel(4)
  End Select
  '---------- hier nog de wegschrijf-code
  '
  '
Next a
End Sub


Wat die laatste horde betreft (klein detail dat ik niet gecorrigeerd krijg) is dit het volgende :
In de originele lijst staat in de kolom van de namen in elke cel vlak voor de naam een kleine afbeelding van het geslacht.
Als ik deze cel inlees met VBA dan lijkt het in VBA alsof er een spatie voor de naam staat maar blijkbaar erkend VBA dit niet als
een spatie want als ik de Trim-functie gebruik wijzigt er niets aan die schijnbare spatie.
Dus vrees dat ik dit niet opgelost zal krijgen...


groetjes,
BlackDevil

Hey Molly,

Ik heb eventjes een kleine groep namen van enkele van mijn voorouders (die al enkele eeuwen geleden overleden zijn) zoals ik deze
uit de web-applicatie heb gehaald overgezet naar een nieuw bestandje dat ik hier even aanhang.

Het ding is, als ik rechtstreeks in de cel ga staan en dan dubbelklik of F2 druk om te bewerken dan kan ik met een simpele backspace of delete die eerste spatie wel verwijderen. Maar via de TRIM-functie lukt het dus niet... Maar omdat ik letterlijk honderdduizenden namen heb zie ik me dat nog niet handmatig bij elke naam corrigeren  .

groetjes,
BlackDevil

Hey Molly,

Bedankt  werkt perfect... die schijnbare spaties zijn volledig weg nu 


groetjes,
BlackDevil












modbreak:bericht aanpassen

Hey Molly,

Hartelijk dank alweer voor jouw hulp.

Ja, ik was er nog vergeten bij te zeggen dat ik mijn code-blok geschreven en getest had zonder de 'loop' en dus enkel getest had voor één specifieke rij.
Had voor het plaatsen op het forum gewoon ff de loop errond gezet om aan te tonen op hoeveel rijen het uiteindelijk moest toegepast worden
en er niet meteen bij stil gestaan dat ik bepaalde onderdelen buiten die loop moest houden ;-).

De enige reden dat ik zowel "De" als "de" enz... erin geplaatst heb was omdat ik vermoedde dat bepaalde functies misschien case-sensitive waren en wou da op die manier opvangen.

Ik ga zo meteen jouw versie eens uittesten en zien hoe ik dan de verdere opbouw van de macro kan aanpakken want ja, dit was nu nog maar enkel voor de namen
maar ook die datums en plaatsen moeten omgezet worden natuurlijk.

Ik laat spoedig mijn bevindingen weten.

groetjes,
BlackDevil

Hallo BlackDevil,

Je vermoeden klopt helemaal: gewoon over gekeken
Dat de code '?' dan omzet naar '? ?' komt doordat er maar één 'woord' gevonden werd. Dat betekent ook dat als er bv. enkel een voornaam of enkel een familienaam staat die ook dubbel in het resultaat zal komen, maar misschien mogen we verwachten dat dit uitgesloten is? Anders moeten we de code nog lichtjes uitbreiden.

Zoals je weet kent Excel geen datums vóór 1900, dus hoe moeilijk dat zal zijn hangt helemaal af van wat je er precies mee wil. Als je er niet uitkomt weet je ons wel weer te vinden

Groetjes,
Molly