Kan iemand mij helpen met een probleem in Visual Basic. Ik heb een bestand gemaakt die rente en aflossing uit elkaar splitst bij een lening waarvan de aflossing en rente wordt berekend volgens de annuïteiten methode per termijn. Nu is dat ook wel gelukt, alleen steeds nadat hij klaar is met berekenen, komt ie met een foutmelding en zet ie een termijn teveel neer in Excel. Het moet aan de kolom met termijnen liggen, want als die al van tevoren is ingevuld, heb ik geen foutmelding. Maar dit kan je niet doen, omdat het per lening verschilt in hoeveel termijnen je die aflost. Het is wel een moeilijke vraag, maar wie weet.. Hieronder de code
Code:
Private Sub CommandButton1_Click()
UserForm1.Hide
Range("a1").Select
ActiveCell.Font.Bold = True
ActiveCell.Value = "Termijn"
ActiveCell.Offset(0, 1).Font.Bold = True
ActiveCell.Offset(0, 1).Value = "Aflossing"
ActiveCell.Offset(0, 2).Font.Bold = True
ActiveCell.Offset(0, 2).Value = "Rente"
ActiveCell.Offset(0, 3).Font.Bold = True
ActiveCell.Offset(0, 3).Value = "Totaal"
ActiveCell.Offset(1, 0).Select
Do
i = i + 1
ActiveCell = i
ActiveCell.Offset(0, 1) = -PPmt(CCur(TextBox2.Text) / 100 / 12, ActiveCell, CCur(TextBox3.Text), CCur(TextBox1.Text))
ActiveCell.Offset(0, 2) = -IPmt(CCur(TextBox2.Text) / 100 / 12, ActiveCell, CCur(TextBox3.Text), CCur(TextBox1.Text))
ActiveCell.Offset(0, 3) = -Pmt(CCur(TextBox2.Text) / 100 / 12, CCur(TextBox3.Text), CCur(TextBox1.Text))
ActiveCell.Offset(1, 0).Select
If ActiveCell = TextBox3.Text Then Exit Do
Loop
End Sub