Bijlage 1: Overzicht lijfrente uitkeringen
Eerste waarneming
50 jaar 60 jaar 65 jaar
€ 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 Aegon € 2.611,00 € 6.543,00 € 2.664,00 € 6.675,00 Amev € 2.637,32 € 6.638,26 € 2.686,80 € 6.763,20 Dbv € 2.651,00 € 6.706,00 € 2.717,00 € 6.857,00 De amerfoordse € 2.631,25 € 6.672,25 € 2.680,25 € 6.797,25 Delta Loyd € 2.635,50 € 6.625,25 € 2.763,50 € 6.947,00 Erasmus € 2.649,00 € 6.655,00 € 2.685,00 € 6.745,00 Interpolis € 2.659,00 € 6.688,00 € 2.712,50 € 6.821,50 Levob € 2.652,75 € 6.661,00 € 2.690,25 € 6.755,75 Loyalis € 2.736,27 € 6.852,03 Nationale Nederlanden € 2.654,50 € 6.664,75 € 2.768,75 € 6.998,75 OHRA € 2.677,22 € 6.719,36 € 2.714,36 € 6.812,29 Postbank € 2.733,52 € 6.850,78 € 2.775,66 € 6.956,26 REAAL Verzekeringen € 2.637,56 € 6.631,81 € 2.682,48 € 6.744,60 Robein € 2.686,00 € 6.714,00 € 2.710,00 € 6.774,00 Rozeker € 2.859,02 € 6.651,21 € 2.701,89 € 6.758,46 SNS Bank € 2.637,56 € 6.631,81 € 2.682,48 € 6.744,60 Stad Rotterdam € 2.637,32 € 6.638,26 € 2.686,80 € 6.763,20 Zwitserleven € 2.610,00 € 6.544,00 € 2.801,00 € 7.033,00 5 jaar Goudse € 2.650,00 € 6.654,00 € 2.697,00 € 6.770,00
50 jaar 60 jaar 65 jaar
50 jaar 60 jaar 65 jaar € 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 aegon € 2.611,00 € 6.543,00 € 2.664,00 € 6.675,00 amev € 2.637,32 € 6.638,26 € 2.686,80 € 6.763,20 Dbv € 2.651,00 € 6.706,00 € 2.717,00 € 6.857,00 De amerfoordse € 2.631,25 € 6.672,25 € 2.680,25 € 6.797,25 Delta Loyd € 2.635,50 € 6.625,25 € 2.763,50 € 6.947,00 Erasmus € 2.649,00 € 6.655,00 € 2.685,00 € 6.745,00 Interpolis € 2.659,00 € 6.688,00 € 2.712,50 € 6.821,50 Levob € 2.652,75 € 6.661,00 € 2.690,25 € 6.755,75 Loyalis € 2.736,27 € 6.852,03 Nationale Nederlanden € 2.654,50 € 6.664,75 € 2.768,75 € 6.998,75 OHRA € 2.677,22 € 6.719,36 € 2.714,36 € 6.812,29 Postbank € 2.733,52 € 6.850,78 € 2.775,66 € 6.956,26 REAAL Verzekeringen € 2.637,56 € 6.631,81 € 2.682,48 € 6.744,60 Robein € 2.686,00 € 6.714,00 € 2.710,00 € 6.774,00 Rozeker € 2.859,02 € 6.651,21 € 2.701,89 € 6.758,46 SNS Bank € 2.637,56 € 6.631,81 € 2.682,48 € 6.744,60 Stad Rotterdam € 2.637,32 € 6.638,26 € 2.686,80 € 6.763,20 Zwitserleven € 2.610,00 € 6.544,00 € 2.801,00 € 7.033,00 10 jaar goudse € 2.650,00 € 6.654,00 € 2.697,00 € 6.770,00
50 jaar 60 jaar 65 jaar
Tweede waarnemeing
50 jaar 60 jaar 65 jaar
€ 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 aegon € 2.655,00 € 6.652,00 amev € 2.665,00 € 6.707,00 Dbv € 2.691,00 € 6.806,00 De amerfoordse € 2.655,00 € 6.732,00 Delta Loyd € 2.646,00 € 6.652,00 Erasmus € 2.679,00 € 6.728,00 Interpolis € 2.689,00 € 6.763,00 Levob Loyalis € 2.730,00 € 6.836,00 Nationale Nederlanden € 2.692,00 € 6.759,00 OHRA € 2.695,00 € 6.765,00 Postbank € 2.744,00 € 6.877,00 REAAL Verzekeringen € 2.663,00 € 6.695,00 Robein € 2.694,00 € 6.736,00 Rozeker SNS Bank € 2.663,00 € 6.695,00 Stad Rotterdam € 2.665,00 € 6.707,00 Zwitserleven 5 Jaa r goudse
50 jaar 60 jaar 65 jaar
50 jaar 60 jaar 65 jaar € 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 € 50.000,00 € 125.000,00 aegon € 1.041,00 € 2.612,00 € 1.113,00 € 2.793,00 amev € 1.041,00 € 2.621,00 € 1.111,00 € 2.793,00 dbv € 1.082,00 € 2.738,00 € 1.155,00 € 2.924,00 De amerfoordse € 1.040,00 € 2.612,00 € 1.109,00 € 2.786,00 Delta Loyd € 1.062,00 € 2.675,00 € 1.100,00 € 2.770,00 Erasmus € 1.073,00 € 2.702,00 € 1.133,00 € 2.854,00 Interpolis € 1.072,00 € 2.714,00 € 1.146,00 € 2.899,00 Levob Loyalis Nationale Nederlanden € 1.089,00 € 2.742,00 € 1.161,00 € 2.922,00 OHRA € 1.093,00 € 2.757,00 € 1.156,00 € 2.912,00 Postbank € 1.094,00 € 2.747,00 € 1.162,00 € 2.918,00 REAAL Verzekeringen € 1.076,00 € 2.712,00 € 1.138,00 € 2.866,00 Robein € 1.088,00 € 2.719,00 € 1.127,00 € 2.818,00 Rozeker SNS Bank € 1.076,00 € 2.712,00 € 1.138,00 € 2.866,00 Stad Rotterdam € 1.041,00 € 2.621,00 € 1.111,00 € 2.796,00 Zwitserleven 15 Ja ar goudse
50 jaar 60 jaar 65 jaar
Bijlage 2: Macro berekenen kostenstructuur lijfrentes
Sub optimaliseren() Application.ScreenUpdating = False Do Do a = Range("l2") c = Cells(a, 33) rendements5correctie rendements10correctie rendements15correctie rendementslangcorrectie arendements5correctie arendements10correctie arendements15correctie arendementslangcorrectie leeftijdcorrectie eerstkostencorrectie doorlopendekostencorrectie rendements5correctiemin rendements10correctiemin rendements15correctiemin rendementslangcorrectiemin arendements5correctiemin arendements10correctiemin arendements15correctiemin arendementslangcorrectiemin leeftijdcorrectiemin eerstkostencorrectiemin doorlopendekostencorrectiemin w = Range("l1") Range("l1").Select ActiveCell.FormulaR1C1 = w * 1.05 a = Range("l2") z = Cells(a, 33) Loop Until z > c Or z = c e = Range("m2") q = Range("l2") r = ((q - 6) * 5) + 2 + e Cells(a, 33).Copy Cells(r, 48).SelectEnd Sub Sub aaa() e = Range("m2") q = Range("l2") r = ((q - 6) * 5) + 2 + e
Range(Cells(e + 2, 36), Cells(e + 2, 48)).Copy Cells(r, 51).Select
c = Cells(a, 33) b = b - (w * 0.0001) Cells(a + 72, 17).Select ActiveCell.FormulaR1C1 = b d = Cells(a, 33) If d > c Or b < 0 Then ActiveCell.FormulaR1C1 = b + (w * 0.0001) q = Range("l2") r = ((q - 6) * 5) + e Cells(r, 47).Select ActiveCell.FormulaR1C1 = b + (w * 0.0001) End If End Sub Sub eee() a = Range("l2") doel = "ag" & a
aanpassen = "l" & a & ":m" & a & ",o" & a & ":q" & a & ",m" & a + 24 & ",q" & a + 24 & ",m" & a + 48 & ",q" & a + 48 & ",m" & a + 72 & ",q" & a + 72
SolverReset
SolverOk SetCell:=doel, MaxMinVal:=2, ValueOf:="0", ByChange:=aanpassen SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.0000000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _ IntTolerance:=0.0000000001, Scaling:=False, Convergence:=0.0000000001, AssumeNonNeg:=False
SolverAdd CellRef:="$AB$21", Relation:=1, FormulaText:="0" SolverAdd CellRef:=Cells(a, 12), Relation:=3, FormulaText:="-20" SolverAdd CellRef:=Cells(a, 12), Relation:=1, FormulaText:="20" SolverAdd CellRef:=Cells(a, 13), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a, 15), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a, 16), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a, 17), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a + 24, 13), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a + 24, 17), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a + 48, 13), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a + 48, 17), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a + 72, 13), Relation:=3, FormulaText:="0" SolverAdd CellRef:=Cells(a + 72, 17), Relation:=3, FormulaText:="0" solversolve UserFinish:=True
solverfinish keepfinal:=True
Bijlage 4: Schermprint Dil model
geboorte datum 1 1-1-1930 m 3,18% 2,930000%netto koopsom tarief 16,946
geslacht 1 M 1 3,68% 3,180000%netto koopsom reservering 16,94640033
geboorte datum 2 1-6-1935 4,00% reserveringen 17,03183005
geslacht 2 M 4,22%
Afsluitdatum 1-1-2002
Looptijd 5 rekenrente 3,00%
aantal uitkeringen per jaar 4
Koopsom Bruto koopsom reservering doorlopende kosten uitkering rentestandskorting
€ 0,00 € 153,83 -€ 20,00 € 0,00
Reservering Eerste kosten doorlopende kosten belasting Uitkering
€ 0,00 € 181,81 € 27,23 34,5% 13.450,00
€ 0,00 Koopsom
€ 530.440,98 232.922,88
€ 3,35-
groen is invoer vak
Bijlage 5: Kolom indeling gegevensblad
A B C D E F G H I J K
Polisnummer ADV_VZ1 ADV_VZ2 GebdatVZ1 GeslachtVZ1 GebdatVZ2 GeslachtVN Ingangsdatum Termijn AnnyBedrag
L M N O P Q R S T
Bijlage 6:Macro berekenen koopsom bij afsluiten
a = 1 c = 0 Application.ScreenUpdating = True Do Windows("gegevensmap.xls").Activate Cells(a, 4).Select Selection.Copy Windows("dil model.xls").Activate Sheets("invoer").Select Range("B1").Select - 59 - ActiveSheet.Paste Windows("gegevensmap.xls").Activate Cells(a, 6).Select Selection.Copy Windows("dil model.xls").Activate Range("B3").Select ActiveSheet.Paste Windows("gegevensmap.xls").Activate Cells(a, 5).Select Selection.Copy Windows("dil model.xls").Activate Range("B2").Select ActiveSheet.Paste Windows("gegevensmap.xls").Activate Cells(a, 7).Select Application.CutCopyMode = False Selection.Copy Windows("dil model.xls").Activate Range("B4").Select ActiveSheet.Paste Windows("gegevensmap.xls").Activate Cells(a, 10).Select Selection.Copy Windows("dil model.xls").Activate Range("B7").Select ActiveSheet.Paste Windows("gegevensmap.xls").Activate Cells(a, 20).Select Application.CutCopyMode = False Selection.Copy Windows("dil model.xls").Activate Range("B6").SelectWindows("gegevensmap.xls").Activate Cells(a, 16).Select Application.CutCopyMode = False Selection.Copy Windows("dil model.xls").Activate Range("B8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Windows("gegevensmap.xls").Activate Cells(a, 17).Select Application.CutCopyMode = False Selection.Copy Windows("dil model.xls").Activate Range("e13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False
Range("E15").Select Selection.Copy
Windows("gegevensmap.xls").Activate Cells(a, 22).Select
Bijlage 7: Macro berekenen huidige waarde lijfrente
a = 4 b = 23 c = 0 d = 0 e = 0 Application.ScreenUpdating = True Windows("gegevensmap.xls").Activate Application.ScreenUpdating = True Windows("dil model.xls").Activate Sheets("invoer").Select Range("B13").Select ActiveCell.FormulaR1C1 = "382.18" Range("c13").Select ActiveCell.FormulaR1C1 = "30.89" Sheets("rekenvel").Select Range("a29").Select ActiveCell.FormulaR1C1 = "1" Sheets("rendementen").Select Range("e4").Select ActiveCell.FormulaR1C1 = c doorrekenen: Do Windows("gegevensmap.xls").Activate Range(Cells(a, 4), Cells(a, 11)).Select Selection.CopyWindows("dil model.xls").Activate Sheets("invoer").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True
Range("a17:c17").Select Selection.Copy
Windows("gegevensmap.xls").Activate Cells(a, b).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False
a = a + 1
If a > 2770 And d = 1 Then GoTo volgende2 If a > 2770 And d = 2 Then GoTo volgende3 If a > 2770 And d = 3 Then GoTo volgende2 If a > 2770 And d > 3 Then GoTo op
If a > 2770 Then GoTo volgende Loop