Hey pitufo,
Bedankt voor het complimentje en vooral bedankt voor de code.
Doch kan ik er niet geheel aan uit...
Bvb, hoe ik de [i_rij = ....] moet aanvullen...?
Ik heb inderdaad iets staan als Dim Bkn As Worksheet
en Dim ILB01 As Worksheet
staan
maar ik heb deze gewoon toegevoegd aan de code die er reeds stond maw ik heb dit staan :
Dim Pers, Geb, Huw, Ovl, Doc, Bkn, Lft, Klst, ILB01, ILB02, ILB03, ILB04, ILB05, ILB06, ILB07, ILB08, ILB09, ILB10, ILB11, ILB12, ILB13, ILB14, ILB15, ILB16, ILB17, ILB18, ILB19, ILB20, ILB21, ILB22, ILB23, ILB24, ILB25 As Worksheet
Set Pers = Sheets("Personen")
Set Geb = Sheets("Geboorten")
Set Huw = Sheets("Huwelijken")
Set Ovl = Sheets("Overlijdens")
Set Bkn = Sheets("Boeken")
Set Doc = Sheets("Documenten")
Set Lft = Sheets("Leeftijdsberekeningen")
Set Klst = Sheets("Keuzelijsten")
Set ILB01 = Sheets("IdxLst_Bk01")
Set ILB02 = Sheets("IdxLst_Bk02")
Set ILB03 = Sheets("IdxLst_Bk03")
Set ILB04 = Sheets("IdxLst_Bk04")
Set ILB05 = Sheets("IdxLst_Bk05")
Set ILB06 = Sheets("IdxLst_Bk06")
Set ILB07 = Sheets("IdxLst_Bk07")
Set ILB08 = Sheets("IdxLst_Bk08")
Set ILB09 = Sheets("IdxLst_Bk09")
Set ILB10 = Sheets("IdxLst_Bk10")
Set ILB11 = Sheets("IdxLst_Bk11")
Set ILB12 = Sheets("IdxLst_Bk12")
Set ILB13 = Sheets("IdxLst_Bk13")
Set ILB14 = Sheets("IdxLst_Bk14")
Set ILB15 = Sheets("IdxLst_Bk15")
Set ILB16 = Sheets("IdxLst_Bk16")
Set ILB17 = Sheets("IdxLst_Bk17")
Set ILB18 = Sheets("IdxLst_Bk18")
Set ILB19 = Sheets("IdxLst_Bk19")
Set ILB20 = Sheets("IdxLst_Bk20")
Set ILB21 = Sheets("IdxLst_Bk21")
Set ILB22 = Sheets("IdxLst_Bk22")
Set ILB23 = Sheets("IdxLst_Bk23")
Set ILB24 = Sheets("IdxLst_Bk24")
Set ILB25 = Sheets("IdxLst_Bk25")
Verder heb ik ook de code, voor de bepaling waar de gegevens moeten worden weggeschreven, als volgt aangevuld :
nr = Val(.lbl_IntID)
'bepalen waar formuliergegevens moeten weggeschreven worden
nieuwpersoon = False
If WorksheetFunction.CountIf(Pers.Columns(1), nr) = 0 Then
'nieuw persoon
nieuwpersoon = True
pers_rij = Pers.Cells(Rows.Count, 1).End(xlUp).Row + 1
geb_rij = pers_rij
huw_rij = pers_rij
ovl_rij = pers_rij
bkn_rij = pers_rij
doc_rij = pers_rij
lft_rij = pers_rij
ilb01_rij = ILB01.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb02_rij = ILB02.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb03_rij = ILB03.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb04_rij = ILB04.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb05_rij = ILB05.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb06_rij = ILB06.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb07_rij = ILB07.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb08_rij = ILB08.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb09_rij = ILB09.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb10_rij = ILB10.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb11_rij = ILB11.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb12_rij = ILB12.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb13_rij = ILB13.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb14_rij = ILB14.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb15_rij = ILB15.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb16_rij = ILB16.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb17_rij = ILB17.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb18_rij = ILB18.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb19_rij = ILB19.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb20_rij = ILB20.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb21_rij = ILB21.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb22_rij = ILB22.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb23_rij = ILB23.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb24_rij = ILB24.Cells(Rows.Count, 9).End(xlUp).Row + 1
ilb25_rij = ILB25.Cells(Rows.Count, 9).End(xlUp).Row + 1
Op deze manier, samen met de code die ik in mijn vorig bericht heb vermeld, heb ik het dus werkende gekregen, althans toch
inzake het toevoegen van nieuwe personen.
Voor het bewerken van personen krijg ik echter steeds een foutmelding omdat ik nog niet heb uitgevist hoe en/of waar
ik de code daarvoor moet aanvullen...
Verder ben ik nog enkele foutjes tegengekomen mbt de oorspronkelijke code.
1) tijdens het uittesten had ik per ongeluk 2x iemand toegevoegd met hetzelfde SOSA-nr en dat werd gewoon aanvaard terwijl
dit niet zou mogen, er kunnen nooit 2 personen hetzelfde SOSA-nr hebben.
2) datums worden normaliter ingevoerd als 14032005 en worden dan weergegeven als 14-03-2005.
Nu zijn er 2 datums die verkeerd worden weergegeven terwijl alle andere datums wel correct worden weergegeven.
De 2 datums zijn 12-02-1919 en 06-07-1974. Ik voer deze in als 12021919 en 06071974 maar dan worden ze weergegeven
als volgt : 2/12/1919 en 7/06/1974... Ik heb dus totaal geen idee wat daar de oorzaak van is of kan zijn.
Zodra ik uitgevist heb op welke wijze ik jouw nieuwe code moet toevoegen zal ik jou laten weten of het al dan niet werkt.
Vriendelijke en dankbare groetjes,
BlackDevil
Aanvulling : Inzake de invoer van de datums vroeg ik mij af of het niet mogelijk was om in het invoerveld de twee "-"jes reeds
staan te hebben zodat je de datum zelf zonder streepjes invoert maar dat de datum dan wel in het invoerveld reeds
als 14-03-2005 staat en dan ook in het werkblad word weergegeven als 14-03-2005...