Forstår de involverede i adoptionsskandalen

Forstår de involverede i adoptionsskandalen

Når man hele livet leder efter spor

Forstår de involverede i adoptionsskandalen

Lige nu findes der på DR1 en DR-Dokumentar i tre afsnit ved navn “Det store adoptionstyveri”. Jeg har set de første to afsnit, hvor børn kommer til Danmark fra et børnehjem i Indien. Herudover så jeg lidt af et “Aftenshowet” om dem, vi engang kaldte for “Koreabørn”. Så havde jeg fået nok. Det er positivt ment!

Jeg forstår deres smerte og livslange søgen efter deres biologiske forældre. De børn – som altså nu er granvoksne mennesker – leder efter nåle i høstakke for at finde frem til deres biologiske forældre eller bare slægtninge et sted i det enormt store Indien og Korea. Og det lykkes for flere af dem, også selvom papirerne har været forfalskede. Detektivarbejdet er imponerende – men selvom det selvfølgelig hjælper at have Danmarks Radio i ryggen, fremgår det, at flere har ledt efter deres forældre på egen hånd i ca. 10 år. Sikke en kampgejst.

Min historie er (heldigvis) en helt anden

Jeg har altid vidst, at jeg var adopteret, forstået på den måde, at jeg ikke kan huske, at jeg ikke har vidst det. Således holdt mine adoptivforældre to fødselsdage for mig:

  1. Den dag jeg rent faktisk har fødselsdag
  2. Den dag, de syntes, de havde noget at fejre, nemlig den dag de hentede mig fra børnehjemmet “Dear Home” i Hellerup. Jeg har altid syntes, det var rørende, fordi det beskriver deres glæde over at blive forældre.

Jeg kan huske, at jeg selv som ganske lille sagde til mine forældre “Når jeg bliver stor, vil jeg møde min rigtige mor”. Jeg har været mindre end ni år. Af og til har jeg tænkt på, om det gjorde ondt på dem, og om de blev kede af det. Jeg håber, de kunne drage den logiske slutning, at når mine adoptivforældre havde fortalt mig, at de ikke var mine biologiske forældre, ville jeg en dag lede efter dem. Desværre er der ingen at spørge.

Jeg er utrolig glad for altid at have vidst det, og jeg føler med de mennesker, der først sent i livet finder ud af, at de er adopterede fx via en DNA-test. Det må være som at få gulvtæppet revet væk under sig. Alt det man har troet på, viser sig at være en livslang løgn.

En underlig “medgift”

Normalt var “medgifter” noget unge kvinder fik med hjemmefra, når de giftede sig og skulle etablere en husholdning med ægtefællen. Min “medgift” var adoptionsbevillingen, der blev stoppet ned i kufferten, da jeg flyttede til København fra Bornholm som 16-årig. Det var selvfølgelig meget praktisk, at jeg selv havde den hos mig, men … jeg synes nok, man kan undre sig lidt. Men jeg skulle selvfølgelig heller ikke giftes. Jeg flyttede/flygtede bare, og så er medgiften måske en anden?

Detektivarbejdet var let

Jeg havde en idé om, at jeg skulle være 18 år, før jeg kunne opsøge mine biologiske forældre. Om det er rigtigt, ved jeg ikke, men jeg var 18 år og en eller to uger, da jeg i 1981 kontaktede Civilretsdirektoratet for at få oplyst deres navne. Om det stadig er dem, der har kompetencen på området, ved jeg ikke.

Da jeg havde navnene, var det bare at slå op i telefonbogen. Nu undrer jeg mig lidt over, hvordan Civilretsdirektoratet kunne vide, hvad min biologiske mor så mange år efter hed til efternavn. Og det kan også være, jeg husker forkert, men jeg ville da huske, hvis jeg havde brugt flere år på detektivarbejdet. Jeg husker det som hurtigt og nemt.

Det var før, jeg selv havde telefon, så jeg stod i gård 80 på Amagerkollegiets lille telefonboks og ringede hende op.

Det resterende var svært

Hun havde altid vidst, at jeg en dag ville ringe. Det første møde var fantastisk. Jeg tror, det var hos hende et sted i Nordsjælland. Jeg traf mine to halvsøskende og hendes ægtefælle.

Jeg husker tydeligt, at hun sagde, at jeg var “velkommen til at glide ind i familien”. Og det var jo i virkeligheden stort af hende. Men det var ikke nok for mig, for jeg ville så gerne have en mor, hvilket jeg jo ikke rigtig havde haft efter november 1972, hvor min far døde.

Og derfor var det vældig svært. Det var for eksempelvis svært, at hun ikke havde tid til at besøge mig på Amagerkollegiet, fordi hun skulle træne til maraton. Jeg var ikke kvik nok til at sige, at hun da bare kunne løbe ud til mig, eftersom distancen passede nogenlunde.

Samlet set mødtes vi nogle gange – sådan tre eller fire gange – og så døde forbindelsen ud. Men jeg er glad for at have mødt hende, fordi der trods var nogle huller, der lukkede sig. Der var spor, jeg ikke længere behøvede at lede efter.

,

De troede på ufoer og dødsstraf

De troede på ufoer og dødsstraf

Og ønskede Glistrup som statsminister

De troede på ufoer og dødsstraf

Nogle gange tænker jeg tilbage … Det burde jeg egentlig ikke, for det er for forstemmende, men jeg prøver at grine af det. Det er mit våben. Havde de levet under pandemien, havde de helt sikkert været Coronafornægtere …

Jeg kom til at tænke på alle disse skøre ting, fordi jeg var på vej ind i en diskussion på Facebook, hvor man mente, at Mette Frederiksen udøver censur og bestemmer, hvad TV skal sende. Mine argumenter om, at TV-stationerne gennem mange år har vidst, at folk hellere vil se kagedyster end krig, og at den viden har man fra grundige analyser, faldt til jorden. Først da opdagede jeg, at jeg hurtigt måtte “bakke baglæns …”.

Det med ufoerne

Der, hvor jeg boede – efter min fars død i november 1972 – fra lidt før april 1975 (tidspunktet hvor min “mor” giftede sig med psykopaten), til jeg flyttede i juli 1980, troede man på ufoer.

De mente ganske bestemt, de havde set ufoer lande i haven på Sydfyn. Mere ved jeg ikke om det, men det er også nok. Det var i hvert tilfælde nok til at skræmme et barn.

Selv var jeg optaget af mere jordnære emner så som de fysikbøger, jeg lærte udenad fra femte klasse og frem. Jeg kunne simpelthen ikke få det med ufoerne til at passe med bøgerne, men hvad stiller man op som barn, når de voksne taler om de uidentificerede flyvende objekter, som var de virkeligheden? Også selvom den mandlige part var skolelærer og vældig godt kunne lide børn, især piger …

Den gamle dame under kastanjetræet

En periode (12/1975 – 07/1978) boede vi i noget gammelt faldefærdigt skrammel på Sydfyn. Det var nærmere bestemt en firlænget gård fra 1850 (kilde: BBR) med bindingsværk og stråtag. Haven rummede et kastanjetræ, der kunne ses fra køkkenet. Min “mor” havde en nat været oppe og kigget ud i haven. Der havde hun set en gammel dame, der sad med et håndarbejde i en gyngestol under kastanjetræet. Min “mor” var slet ikke i tvivl om, at det var var sandheden.

Jeg selv var slet ikke i tvivl om, at jeg var skræmt fra vid og sans. Derefter gik jeg ikke på toilettet om natten, med mindre det var højst nødvendigt. Jeg havde ikke spor lyst til at møde den gamle dame – og det skete nu heller aldrig. Man kan jo overveje hvorfor.

Forestillinger om retssikkerhed

Deres forestillinger om retssikkerhed var langt fra mine. De mente, at det bedste ville være at indføre dødsstraf, da det ville virke vældig godt både som generalprævention og specialprævention.

Altså ville det bedste være at skyde de kriminelle for panden med en boltpistol, for så gjorde den gerningsperson helt sikkert ikke det samme igen, og det ville også afholde potentielle gerningspersoner fra at begå kriminalitet.

Luk Christiania

De forstod på ingen måder, hvorfor der kunne være fordele ved fristaden, der var blevet grundlagt i 1971. De så skævt til mennesker, der ønskede at forsøge at leve på en anden måde end i det sædvanlige hamsterhjul.

I deres billede var der udelukkende tale om samfundsnassere, der skulle “lære at bestille noget”, og hippier.

Selv lærte jeg alt for godt “at bestille noget”.

Glistrup som statsminister

I perioden fra 07/1978 til 07/1980 boede jeg sammen med parret på Bornholm. De ønskede sig brændende Glistrup som statsminister, hvilket ikke var et helt ukendt standpunkt på øen på den tid, og som selvfølgelig faldt fint i tråd med alt det ovenstående. Dog kender jeg ikke Glistrups syn på ufoer.

Og deres forkærlighed for atomkraft behøver jeg næppe nævne …

Jeg kom til Amagerkollegiet med disse holdninger …

Uha, det var en omvæltning i juni 1981 at komme til Amagerkollegiet med disse holdninger efter at have skurret gulve i De Gamles By i et år.

Jeg var ikke for kvik og troede, man kunne leve af at være student; ergo ville jeg have en studentereksamen.

Gad nok vide hvad de øvrige kollegianere har tænkt? Jeg ved det ikke – og jeg blev nu ret hurtigt “genopdraget”.

Jeg mødte noget, der må kaldes dels normalitet, dels selvstændig tænkning. Pludselig skulle jeg argumentere for mine synspunkter, og det kunne jeg jo ikke. Dog kunne jeg tænke så langt, at jeg kunne se, at noget var helt ravruskende galt inde i mit hoved. Det var faktisk pænt af de øvrige kollegianere, at de inkluderede mig til trods for mine vanvittige synspunkter.

Jeg fik venner, der kunne tænke selv, og det smittede gudskelov af. De lærte mig starten på selvstændig tænkning, hvilket tog fart, da jeg startede på “Statens Kursus til Studentereksamen”. Alle lærere krævede argumentation og kildekritik af os uanset hvad.

Det var to skønne og hårde år. Hver dag cyklede jeg hjem fra Frederiksberg til Amager og var blevet lidt klogere. Jeg kan næsten savne det.

Uden de øvrige kollegianere og studenterkurset var jeg måske også selv endt som Coronafornægter … Det er en pudsig tanke.


Har du kommentarer til artiklen?

Så er jeg glad for at modtage dem i relation til artiklen, dvs. i artiklens kommentarfelt herunder, ikke på Facebook og ikke via Messenger. Jeg svarer dig også relation til artiklen, ikke på Facebook og ikke via Messenger. Det skyldes, at kommentarer og artiklen jo ellers dekobles, og så er din kommentar ikke noget værd i fremtiden. Det er ærgerligt for os begge.

Hvis du ikke tidligere har kommenteret en af mine artikler her på siden, skal din kommentar først godkendes (spamhensyn). Min responstid er under normale omstændigheder meget kort. Herefter vil du stryge lige igennem.

I morfars kolonihavehus

I morfars kolonihavehus

Carl Frederik KRISTENSEN (1899 – 1982)

I morfars kolonihavehus

I aftes sad jeg og hørte lidt gammel musik og stødte på Eva Madsens “I mormors kolonihavehus”, og det bragte minderne frem.

Min mormor Mary CHRISTENSEN (1910 – 1994) havde ikke et kolonihavehus, men det havde min morfar. Faktisk havde han hele to kolonihavehuse. Historien følger her.

Carl Frederik KRISTENSEN 1899 – 1982

Morfar var født på ude heden nærmere bestemt i Skærlund i Brande Sogn, Nørvang Herred, Vejle Amt. Han gik kun i skole om vinteren, for om sommeren passede han markerne sammen med sine tre søstre. Hans far, Bertel KRISTENSEN (1859 – 1917), drev husmandsstedet på traditionel vis med heste.

Da Bertel døde i 1917, besluttede min morfar sig for at mekanisere det lille landbrug. Han købte maskiner, blandt andet selvbindere, der skulle afløse hestene. Men han fik forkøbt sig og gik konkurs i 1925.

Morfar skriver selv i sin levnedsbeskrivelse (som er et imponerende og rørende lille værk på 100 håndskrevne sider, og som befandt sig hos min “mor”, og som jeg ikke ved, hvad der er hændt med efter hendes død):

Det var ikke rart på auktionsdagen at stå til skue for dem, der var kommet for at overvære auktionen, det var, som man kunne mærke, at de tænkte: “Nu har han da fået sat det over styr, som hans forældre har slidt for”. Det er ikke nogen rar fornemmelse at få, det har på en måde haft stor indflydelse på mig, det gik også ud over min søster Thora, der havde slidt i det for at hjælpe mig og intet fik ud af det. Jeg havde jo prøvet for lidt og var for selvklog.

Eftersom der er heste på billedet herover, må det være taget kort efter 1917, men det er jeg i tvivl om. Jeg er glad for at have billedet, da det er et fint vidnesbyrd om tiden for ca. 100 år tilbage.

Efter at være gået fallit, arbejdede min morfar mange år med at grave tørv i de nærliggende tørvemoser. Da min “mor” bliver døbt i 1935 i Blaahøj Kirke er morfar angivet som “Arbejdsmand”. Mormor og morfar fik ikke andre fællesbørn. Parret bliver skilt kort efter oktober 1955, hvilket fremgår af det min “mor” fortæller til min adoptionssag. Ægteskabet holdt ikke til, at morfar – for at få arbejde – måtte rejse rundt i landet og finde diverse jobs som arbejdsmand.

Vi ved alle, at velfærdssamfundet blev grundlagt fra midten af 1950’erne ff. Velfærdssamfundet nåede bare aldrig til min morfar.

Det jeg selv husker om kolonihavehusene i haveforeningen Skytteløkken i Odense

Den første have

I morfars kolonihavehusDen første have var ret lille og det røde træhus var noget slidt, men det lå i cykelafstand fra hans mikroskopiske lejlighed med toilet i gården (jeg husker stadig den stærke duft af “Hardol”, der var rent nok). Kolonihaven havde ikke indlagt rindende vand, så lokummet var en spand i et lille aflukke. Jeg kunne sagtens holde mig en hel dag for at undgå at gå derud.

Det var skønt at besøge morfar der, bortset fra lokummet, for jeg måtte spise alle de jordbær, stikkelsbær og ribs, jeg overhovedet kunne. Det er nok en erindringsforskydning, men jeg synes, vi altid fik kyllingesteg fra gryde til aften. Hvad der helt sikkert ikke er en erindringsforskydning er de nyopgravede kartofler og agurkesalaten. Morfar var dygtig til at lave mad.

Den næste have

På en eller anden måde fik han sparet op til en større have med et flot hus i Skytteløkken, som han købte, da – eller måske lige før? – han blev pensioneret. Men han var på det tidspunkt for syg til at passe huset og haven. Han var simpelthen slidt op. Derfor gav han det til min “mor” og psykopaten. De solgte det ret hurtigt og brugte pengene til udbetalingen på det firlængede skrammel i Nellemose pr. Hårby på Sydfyn, hvor jeg boede fra december 1975 til  juli 1978. Herefter flyttede vi til Bornholm. Og morfar kom med …

At ende livet i et baglokale til en skobutik

Det var frygteligt uværdigt. Jeg bliver så trist over at tænke på det.

I december 1978 flyttede vi til Svaneke, og på et eller andet tidspunkt flyttede morfar ind i baglokalet til den skobutik, min “mor” forsøgte at drive. Han blev ret hurtigt ret dårlig og kunne ikke komme op ad trappen til første sal, og derfor spiste han nede hos sig selv i det nordvendte baglokale. Der kom aldrig en solstråle. Jeg gik ned med maden til ham, og tømte samtidig den kolbe, han var nødt til at tisse i, fordi han var for usikker på benene til at kunne gå med gangstativet ud på toilettet. Der var et par trin op.

Hans beskæftigelse: TV eller kigge ud i luften. Ingen tog sig af ham, ingen talte med ham, ingen lyttede til hans livshistorie, ingen gjorde noget som helst. Det har ikke været af kærlighed, man tilbød ham baglokalet. Jeg tror ganske enkelt, det har været for at score hans pension!

Jeg flyttede 31. juli 1980 og så aldrig morfar igen. Jeg har noteret dødsdatoen, og at han er begravet på Olsker Kirkegård. Desværre er der ingen kilder … Pokkers også, men jeg vil tro, det kommer fra min “mor”. Jeg mener at vide, at han døde på plejehjemmet i Svaneke, men hvad kilden skulle være til det, er jeg heller ikke klar over. I øvrigt blev jeg ikke inviteret til begravelsen.

Billedet herunder stammer fra en af morfars fødselsdage. Jeg mener, det er taget hos hans søster Thora (kvinden til højre) i Årup. Til venstre sidder hans søster Anna.

I morfars kolonihavehus


Har du kommentarer til artiklen?

Så er jeg glad for at modtage dem i relation til artiklen, dvs. i artiklens kommentarfelt herunder, ikke på Facebook og ikke via Messenger. Jeg svarer dig også relation til artiklen, ikke på Facebook og ikke via Messenger. Det skyldes, at kommentarer og artiklen jo ellers dekobles, og så er din kommentar ikke noget værd i fremtiden. Det er ærgerligt for os begge.

Hvis du ikke tidligere har kommenteret en af mine artikler her på siden, skal din kommentar først godkendes (spamhensyn). Min responstid er under normale omstændigheder meget kort. Herefter vil du stryge lige igennem.

,

Diagrammer og VBA-koder styrer slægtsdata

Diagrammer og VBA-koder styrer slægtsdata

Lav diagrammer med ChatGPT

Diagrammer og VBA-koder styrer slægtsdata

Advarsel: Denne artikel er endog meget “nørdet”.

Jeg rydder stadig op i slægtsdata – og jeg er stadig fascineret af ChatGPT. I går blev jeg opmærksom på, at der findes mange gratis tilføjelsesprogrammer (plug-ins) til ChatGPT, og jeg installerede “Diagrams: Show Me”.

Lige nu har jeg den betalte version af ChatGPT, dvs. version 4. Om tilføjelsesprogrammerne også findes til ChatGPT version 3.5, er jeg ikke klar over.

For at styre oprydningen har jeg lavet en Excelfil.

Billederne i denne artikel er svære at se, med mindre du vha. CTRL + zoomer ind med din browser.

Diagrammer og VBA-koder styrer slægtsdata

Og for at finde på en både sjov og nyttig anvendelse af “Diagrams: Show Me”, besluttede jeg at bede ChatGPT lave et diagram over den samlede proces fra data i Legacy til markering af direkte aner i Excelfilen.

  • Måske kan du bruge nogle af ideerne og koderne?
  • Måske får du mod på selv at lege med ChatGPT?

Der er stort set intet af alt det nedenstående, jeg har lavet selv, for jeg kan ikke kode. ChatGPT har gjort det for mig, og jeg har bygget det op over et par måneder, når jeg har fået en ny idé til noget, der kunne være dejligt at få med. Læg mærke til, at ChatGPT er dygtig til at indsætte forklarende kommentarer i VBA-koden. Kommentarerne er de linjer, der starter med en “pling” – dvs. et enkelt anførselstegn: ‘

Det virkelig interessante er, at man kan skrive til ChatGPT, som var den et menneske. Man behøver ikke kende de rigtige termer, som man ville skulle, hvis man ville opbygge det ved at søge med Google. Hvis jeg var Google, ville jeg ryste i bukserne af skræk. De har lavet deres egen Artificial Intelligence-model (AI-model), som kaldes “Gemini”, men af forskellige årsager, vil det vare flere år, før den kommer til Europa. Så vidt jeg husker, skyldes det noget med “Gætte-Per” (GDPR).

Med Gemini sætter Google nu stort ind på at vippe ChatGPT, som indtil videre er førende inden for sprogmodeller, af pinden. Chatbotten, der er udviklet af firmaet Open Ai, fik på blot to måneder 100 millioner brugere, og slog dermed rekorden for flest nye brugere på kortest tid.

Kilde: dr.dk, 7. december 2023

Det får du retur

Du får et meget flot diagram og en beskrivelse af diagrammet med menneskeord.

Jeg synes, der mangler nogle trin i forhold til det, jeg bad om (se nederste afsnit “Her er hvad jeg skrev til ChatGPT”). Det skyldes formentlig, at jeg ikke har været tydelig nok i min beskrivelse. Det er jo trods alt bare en robot – og den kan ikke levere noget retur, som den ikke har fået input om. Det kan kun mennesker tænke sig til. Men det er jo nemt at øve sig i at blive mere tydelig i sin “kravspecifikation” og så simpelthen bare spørge en gang mere.

Menneskeordene følger her

sequenceDiagram
participant Legacy as “Legacy Software”
participant CSV as “CSV File (DirekteAner-2.csv)”
participant VBA as “VBA Macro (SplitNames)”
participant Excel as “Excel File (Gennemgang af slægtsfil.xlsm)”
participant Macro as “VBA Macro (MatchAndHighlight)”

Legacy->>CSV: 1) Start Legacy
Legacy->>CSV: 2) Vælg Fokusgruppe
Legacy->>CSV: 3) Søg, Forskelligt, Fokusgruppe
Legacy->>CSV: 4) Vælg ‘Aner’ i direkte linje
Legacy->>CSV: 5) Lav liste over direkte aner
Legacy->>CSV: 6) Vælg ‘Udskriv’
Legacy->>CSV: 7) Vælg ‘Kommasepareret fil’
Legacy->>CSV: 8) Klik ‘Opret’
Legacy->>CSV: 9) Gem som ‘DirekteAner-2.csv’

CSV->>VBA: Importer til Excel
VBA->>Excel: Kør ‘SplitNames’ makro
Excel->>VBA: Opdel navne i felter

VBA->>Excel: Kopier data til ‘Gennemgang af slægtsfil.xlsm’
Excel->>Macro: Placer data i kolonner B, C, D
Macro->>Excel: Kør ‘MatchAndHighlight’ makro
Excel->>Macro: Farv direkte aner gule
Macro->>Excel: Markér direkte aner med ‘Ja’

Her kommer diagrammet

Diagrammer og VBA-koder styrer slægtsdata

Her er hvad jeg skrev til ChatGPT

Jeg har fået fortalt af en ven, at det kan betale sig at “tale pænt” til robotten, så det gør jeg. Og jeg må sige, at jeg altid får pæne svar retur.

“Hej igen

Du er så dygtig til at lave diagrammer. Kan du lave et diagram over nedenstående? Jeg er i tvivl om, hvilken diagramtype, der er bedst, men jeg tror, at et procesdiagram vil være mest velegnet. Er du enig?

Diagrammet skal starte med følgende, som ikke står i VBA-koden, da det er fra et andet program, der hedder Legacy, som er et program til slægtsforskning.

1) Start Legacy
2) Vælg en “Fokusgruppe”, der rummer direkte aner
3) Det kan du gøre sådan:
3a) Søg
3b) Forskelligt
3c) Fokusgruppe
3d) Klik på knappen “Fokusgruppe” og i vinduet der, klikkes på knappen “Tilføj en person og aner”.
4) Der skal du så kun have markeret “Aner” i direkte linje (fjern eventuelle flueben nedenfor).
5) Nu har du lavet Fokusgruppen og kan klikke på knappen nederst “Lav liste”. Så har du en liste over de direkte aner
6) Vælg “Udskriv”
7) Sæt mærke i “Kommasepareret fil”
8) Klik “Opret”
9) Gem filen med navnet “DirekteAner-2.csv” (den kan selvfølgelig hedde alt muligt andet – så skal du bare selv konsekvensrette nede i makroens linje, hvor der står: Set ws = ThisWorkbook.Worksheets(“DirekteAner-2”)

Det første vi skal gøre med filen er at køre makroen “SplitNames”. Den sørger for at RIN-nr (Legacys ID-nr.), for- og mellemnavne og så efternavne står pænt i hvert sit felt, idet Legacy skriver det hele i ét felt, fx “1,Stegemüller, Hanne B.”. Det kan vi ikke bruge.
Koden er:

Option Explicit

Sub SplitNames()
Application.ScreenUpdating = True
Dim ws As Worksheet
Dim LastRow As Long
Dim i As Long
Dim ID As String
Dim FirstName As String
Dim LastName As String
Dim SplitEntry() As String
Dim Names As String

' Definer hvilket regneark du arbejder med
Set ws = ThisWorkbook.Worksheets("DirekteAner-2")

' Find sidste række med data i kolonne A
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Gennemgå alle rækker med data
For i = 1 To LastRow
' Først, rens cellen for anførselstegn
ws.Cells(i, "A").Value = Replace(ws.Cells(i, "A").Value, """", "")
' Split ID og navne-delen på komma
SplitEntry = Split(ws.Cells(i, "A"), ",", 2) ' Splitter kun ved det første komma

' Sørg for at der er et element at tildele til ID
If UBound(SplitEntry) >= 0 Then
ID = Trim(SplitEntry(0)) ' ID er altid til stede før det første komma
Else
ID = ""
End If

' Tjek om der er yderligere oplysninger udover ID
If UBound(SplitEntry) >= 1 Then
' Der er mere end bare et ID
Names = Trim(SplitEntry(1))
' Find sidste komma, som adskiller efternavn og fornavn
Dim LastComma As Integer
LastComma = InStrRev(Names, ",")
If LastComma > 0 Then
FirstName = Trim(Mid(Names, LastComma + 1))
LastName = Trim(Left(Names, LastComma - 1))
Else
' Hvis der ikke er et komma, antager vi at hele strengen er fornavnet
FirstName = Names
LastName = ""
End If
Else
' Hvis der ikke er yderligere information, er navnefelterne tomme
FirstName = ""
LastName = ""
End If

' Placer værdier i de ønskede celler
ws.Cells(i, "B").Value = ID
ws.Cells(i, "C").Value = FirstName
ws.Cells(i, "D").Value = LastName

' Tilføj dette for at se værdierne i det umiddelbare vindue
Debug.Print "Row: " & i & "; ID: " & ID & "; FirstName: " & FirstName & "; LastName: " & LastName
Next i

MsgBox "Navneopdeling fuldført!"
End Sub

Når navneopdelingen er fuldført, står data pænt i det rigtige felter. De skal kopieres ind i den anden fil, hvor du holder øje med, hvor langt du er nået med din gennemgang af slægtsdata. Den anden fil har jeg kaldt for “Gennemgang af slægtsfil.xlsm”. Det er vigtigt, at filen gemmes som typen .xlsm, for eller kan den ikke rumme makroen.

I “Gennemgang af slægtsfil.xlsm” skal du gøre følgende:

Placer data fra “DirekteAner-2” i kolonnerne B (ID-nummeret), C (for og mellemnavne) og D (Efternavn(e)).

I kolonne A skriver du bare ordet “Ja” foran alle navnene.

Kolonne E skal være tom for at skabe lidt overblik.
Kolonne F skal rumme Fornavn(e)
Kolonne G skal rumme Efternavn(e)
Kolonne H skal rumme RIN-nr., dvs. Legacys ID-nummer
Kolonne I skal rumme ordet “Ja”, hvis det er en direkte ane.

Er det ikke en direkte ane, skal du selv udfylde felterne F, G og H

Er det en direkte ane, skriver du ID-nummeret i kolonne H og kører makroen herunder. Den henter data fra kolonnerne A, B, C og D og farver felterne F, G, H og I gule, så det er nemt at se, at dette er en direkte ane.

Her er makroen, du skal køre – bemærk at fanen skal hedde “Ark1”.
Du kan kalde fanen noget andet, men så skal du konsekvensrette i koden, hvor der står “Set ws = ThisWorkbook.Worksheets(“Ark1″)”:

Sub MatchAndHighlight()

Dim ws As Worksheet
Dim rngToSearch As Range, rngToMatch As Range
Dim cell As Range, matchCell As Range
Dim matchFound As Boolean
Dim lastRow As Long

' Sæt arbejdsark
Set ws = ThisWorkbook.Worksheets("Ark1")

' Definer områderne for matchning
Set rngToSearch = ws.Range("H2:H" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row)
Set rngToMatch = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)

' Nulstil farvning og "Ja"
lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
ws.Range("F2:I" & lastRow).Interior.Color = xlNone
ws.Range("I2:I" & lastRow).Value = ""

' Loop igennem hver celle i rngToSearch for at finde match i rngToMatch
For Each cell In rngToSearch
matchFound = False
If cell.Value <> "" Then
For Each matchCell In rngToMatch
If cell.Value = matchCell.Value Then
ws.Range("F" & cell.Row & ":I" & cell.Row).Interior.Color = vbYellow
ws.Cells(cell.Row, "I").Value = "Ja"
ws.Cells(cell.Row, "F").Value = ws.Cells(matchCell.Row, "C").Value ' Kopier fornavn
ws.Cells(cell.Row, "G").Value = ws.Cells(matchCell.Row, "D").Value ' Kopier efternavn
matchFound = True
Exit For
End If
Next matchCell

If Not matchFound Then
ws.Cells(cell.Row, "I").Value = ""
ws.Range("F" & cell.Row & ":I" & cell.Row).Interior.Color = xlNone
End If
End If
Next cell

MsgBox "Matchning fuldført!"

End Sub"

 


Har du kommentarer til artiklen?

Så er jeg glad for at modtage dem i relation til artiklen, dvs. i artiklens kommentarfelt herunder, ikke på Facebook og ikke via Messenger. Jeg svarer dig også relation til artiklen, ikke på Facebook og ikke via Messenger. Det skyldes, at kommentarer og artiklen jo ellers dekobles, og så er din kommentar ikke noget værd i fremtiden. Det er ærgerligt for os begge.

Hvis du ikke tidligere har kommenteret en af mine artikler her på siden, skal din kommentar først godkendes (spamhensyn). Min responstid er under normale omstændigheder meget kort. Herefter vil du stryge lige igennem.