Regels toevoegen obv cellwaarde

[linke]

Graag had ik het volgende. Ik wil een vba voorbeeld die in een bestand vanaf regel 5 het aantal regels zichtbaar maakt obv de cellwaarde gegeven in A1. Regels 5 t/m20 zijn verborgen.

Dus als de waarde in cell A1 = 2 dan zou er vanaf regel 5 2 nieuwe regels zichtbaar moeten worden.
Cell A1 is trouwens een countif functie. (ik weet niet of dit wat uitmaakt).

Is er vervolgens ook de mogelijkheid om deze functie weer ongedaan te maken?

Lin

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Rows("5:20").Hidden = True
    Rows("5:" & [a1] + 5).Hidden = False
End If
End Sub

Alleen als de inhoud van cel A1 wijzigt, worden de bepaalde rijen getoond.

Met vriendelijke groet,


Roncancio

 

[linke]

Super bedankt