Rijen genereren met formules

[Rentie]

Beste forumers,

Ik heb in excel een hypotheeklastenberekening gemaakt. (zie afbeelding)
Zoals je ziet kan je de looptijd in maanden invullen.
Vul je 360 in dan moeten er 30 rijen gegenereerd worden. (30 jaar)
In de rijen zelf staan natuurlijk de formules die ik zelf ingevoerd heb voor de berekeningen.
Vul je echter 240 maanden in dan wil ik dat er 20 rijen gegenereerd worden en dat de rest er onder leeg blijft.
Het gewoon automatisch onzichtbaar maken van de rijen die niet nodig zijn mag natuurlijk ook.
Weten jullie of dit mogelijk is en hoe ik dit voor elkaar kan krijgen?
Alvast bedankt!

Grtz.

 

[HSV]

Maak even een testbestandje aan.
Maak van de gegevens een tabel.
Zet onderstaande code in de bladmodule van toepassing.

Door wijziging van cel C8 zou het aantal rijen toe - of afnemen naar gelang welke waarde je invult.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$C$8" Then
 If Target.Value > 0 Then
    With Me.ListObjects(1)
    If .ListRows.Count > 1 Then .DataBodyRange.Delete
        .Resize .Range.Resize(Application.RoundUp(Range("C8").Value / 12, 0) + 1)
    End With
   End If
  End If
Application.EnableEvents = True
End Sub

 

[Rentie]

Dank voor je snelle reactie.
Het lukt niet een gegevenstabel te maken. Krijg steeds de melding 'Dit is een ongeldige celverwijzing'.
Hoe kan ik dit precies maken?

 

[Leotaxi]

wel eerst een tabel maken


mvg
Leo

 

[Rentie]

Ik ga kijken of ik eruit kom.
Bedankt!

Gr, Joost