Problemer med end(exdown) når der hides rækker!
Hej!Jeg skal skiftes vis have skjult nogle rækker og vist nogle. Rangen hvori det skal foregår er dannet automatisk med følgende kode:
Public Sub VisAlleInput()
' Definerer range med træposition
Dim cell1, cell2 As Range
Set cell1 = Range("i2Tree_Pos").Offset(1, 0)
'Set cell2 = Range("i2Tree_Pos").Offset(4000, 0)
Set cell2 = Range("i2Tree_Pos").Offset(2, 0).End(xlDown)
Set rngTree = Range(cell1, cell2)
'rngTree.Select
'******************Hide/unhide alle!
rngTree.EntireRow.Hidden = False
End Sub
Mit problem er, hvis jeg har valgt noget én gang, så næste gang omdannes ranges, da end(xldown) ikke tager de skjulte rækker med.
Hvad gør jeg her?
På forhånd tak.
