range

[frank_koreman]

hallo,

ik zit met een behoorlijk irritant probleem dat steeds terug komt. ik wil de beeldgrootte automatisch aan laten passen aan een selectie, omdat dit bestand op meerdere computers (met dus verschillende monitoren) geopend moet worden.

op de eerste sheet staan opdrachtknoppen die andere sheets openen. op een andere manier kan je niet makkelijk op de sheets komen (omdat de tabbladen niet weergeven worden).

de eerste sheet ("home") wordt goed geopend.
maar als ik een code toe wil voegen aan de opdrachtknoppen die naar de andere sheets verwijzen krijg ik steeds een foutmelding (methode select in klasse range is mislukt)

op dit moment staat er dus:
Range("A1:Q1").Select
ActiveWindow.Zoom = True

kan iemand me helpen?

Bij voorbaat dank.

 

[Wigi]

Ik vermoed dat je verwijzing in de 1ste regel niet klopt.

Gebruik misschien iets als

Worksheets("naam van blad").Activate
Worksheets("naam van blad").Range("A1:Q1").Select
ActiveWindow.Zoom = True

Voor mij is het ook wat gissen als er geen bestandje bijgevoegd is.

Lukt dit?

 

[frank_koreman]

wigi,

je had inderdaad gelijk, zo werkt het wel. ik had de naam van het blad er inderdaad nog een keer bij moeten vermelden. had ik al wel geprobeerd, maar dan als:

Range("ALLEN!A1:Q1").Select

hartstikke bedankt, weer iets opgelost!