Cellen verbergen en zichtbaar maken met Macro

[EMCV]

Goedemiddag,

Hoe kan ik er voor zorgen wanneer ik boven rij 35 nieuwe rijen invoeg dat de huidige selectie mee verspringt. Dus wanner ik 10 rijen toevoeg ik dit krijg: Rows("45:98").Select

De huidige macro ziet er zo uit:

Sub week42verbergen()
'
' week42verbergen Macro
'

'
    Rows("35:88").Select
    Selection.EntireRow.Hidden = True
    Range("B91").Select
End Sub
Sub week42zichtbaar()
'
' week42zichtbaar Macro
'

'
    Rows("34:89").Select
    Selection.EntireRow.Hidden = False
    Range("B40: D40").Select
End Sub

Alvast bedankt!!

 

[hazesoft]

Snap niet goed wat je bedoelt.
Stuur eens een bestandje, ontdaan van gevoelige info, mee.

 

[hazesoft]

....dat de huidige selectie mee verspringt.

Bedoel je soms een automatisch aangepaste macro?

 

[EMCV]

Bekijk bijlage Voorbeeld Helpmij.xls

Hoop dat dit het iets duidelijker maakt


Alvast bedankt

EMCV

 

[popipipo]

Geef het bereik wat je wilt verbergen een naam en vermeld deze naam in de macro ipv het absolute bereik.

 

[EMCV]

Het kwartje is gevallen!!! Het is gelukt!

Bedankt voor de hulp