Positioneren Excel - VBA

[anoniem]

Ik weet niet of het mogelijk is maar ik wil middels VBA naar een bepaalde cel springen in een excel sheet (wat lukt) en die cel moet vervolgens links bovenin het scherm worden geplaatst. En dat laatste is de vraag of dit mogelijk is.

[anoniem]

Eh, de inhoud van die cel bedoel je?

[anoniem]

Nee niet de inhoud. Ik heb bijvoorbeeld in Rij 88 het een en ander staan. mbv [b:0d9258d01e]ActiveSheet.Cells(88, 1).Select[/b:0d9258d01e] spring je dus naar die positie. Maar er blijven altijd wat regels boven regel 88 staan. Wat ik nu wil is dat regel 88 ook daadwerkelijk als "eerste" regel wordt weergegeven en dat deze niet ergens halverwege het scherm terug komt. Net als met schrijven en lezen begin je altijd links bovenaan ;)

[anoniem]

spring eerst naar de laatste cel IV65536 en dan terug naar rij 88 bvb cel c88 in de linkerbovenhoek = [code:1:879eb51360] Application.Goto Reference:="R65536C256" Application.Goto Reference:="R88C3" [/code:1:879eb51360]

[anoniem]

Misschien een optie om voorliggende rijen en kolommen te hiden. Zou mooi zijn als bij unhiden dezelfde positie wordt aangehouden, maar helaas: [code:1:d8accd8114] rij = 88 kolom = 5 If rij > 1 Then Rows("1:" & rij - 1).Hidden = True If kolom > 1 Then For i = 1 To kolom - 1 Columns(i).Hidden = True Next i End If ActiveSheet.Cells(rij, kolom).Select [/code:1:d8accd8114]

[anoniem]

Dan werkt die van Doof beter, niks gezegd :-)

[anoniem]

Misschien kan het nog eenvoudiger: [code:1:240aa757a3] ActiveSheet.Cells(88, 1).Select ActiveWindow.ScrollRow = 87 [/code:1:240aa757a3] Fred

[anoniem]

[quote:22114bf4f0="Violist46"]Misschien kan het nog eenvoudiger: [code:1:22114bf4f0] ActiveSheet.Cells(88, 1).Select ActiveWindow.ScrollRow = 87 [/code:1:22114bf4f0] Fred[/quote:22114bf4f0] Fantastisch! :D So simple, maar je moet het nu eenmaal weten 8) Bedankt!