Rijen verbergen.

[Pinguinn]

Hallo,

Ik ben bezig met een rekenmodule in excel, en wil graag overzicht houden, door onnodige rijen te verbergen.
Het is de bedoeling dat ik in een bepaalde cel een waarde geef (0 - 10) en afhankelijk daarvan de onderliggende rijen verberg of weergeef. Bij waarde 0 moeten de 40 rijen eronder verborgen worden. Bij waarde 1 moeten de eerste 4 rijen weergegeven worden en de overige 36 verborgen. etc..

Heb al een tijdje gezocht op internet. maar kom er niet uit. Iemand hier misschien de oplossing? Alvast bedankt!

 

[ExcelAmateur]

Pinguinn,

Kijk eens of je wat met deze file kunt.
Je kunt desnoods de macro aanpassen.

 

[Pinguinn]

Bedankt voor je reactie en je file. Ik ga er even mee aan de slag. Laat het horen als het gelukt is!

 

[Pinguinn]

Super, ik heb het met de volgende code werkend gekregen:

Sub Afvoer()
With Worksheets(1)
    If [E43] = 0 Then
        [A44:A63].EntireRow.Hidden = True
    End If
End With
With Worksheets(1)
    If [E43] = 1 Then
        [A44:A47].EntireRow.Hidden = False
        [A48:A63].EntireRow.Hidden = True
    End If
End With

'etc'

End Sub

Ik moet nu alleen zelf de macro uitvoeren, voordat ie de cellen zichtbaar maakt of verbergt. Hoe kan ik het zo maken dat de macro uitgevoerd wordt, zodra ik de waarde in cel E43 verander?

Alvast bedankt!

 

[ExcelAmateur]

Je zou b.v.b. een stukje code kunnen maken voor achter het blad.
Als de cel dan wijzigt, dat hij de macro die je gemaakt heb start.

Of je kunt de macro gelijk achter het blad zetten.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [E43] = 0 Then
        [A44:A63].EntireRow.Hidden = True
    End If

    If [E43] = 1 Then
        [A44:A47].EntireRow.Hidden = False
        [A48:A63].EntireRow.Hidden = True
    End If
'etc'
End Sub

Je kunt ook net zoals in het voorbeeld een vervolgkeuzelijst plaatsen.
Deze staat bij (Excel 2007) in;
Ontwikkelaars / Invoegen /Formulierbesturingselementen en kies voor Keuzelijst met invoervak
Daar moet je dan je macro aan verbinden.
Voor de inhoud van de keuzelijst kijk je even in het voorbeeld hoe dat gedaan is.

Suc6

 

[Pinguinn]

Super bedankt! werk perfect en erg duidelijk voor m'n begrip met je voorbeeld bestand!