Meerdere tabbladen zoomen

[Masjimo]

Ik heb een stukje VBA geschreven voor het gelijktijdig zoomen van vier tabbladen;
Deze macro wil ik op alle vier de tabbladen gebruiken;

(Range A5 wordt door een besturingselement aangestuurd)

Sheets(Array("Pers", "Mat", "Huur", "Koop")).Select
ActiveWindow.Zoom = Range("A5")
Sheets(Array("Pers", "Mat", "Huur", "Koop")).Deselect

Op zich werken de eerste twee regels van de VBA prima, echter de vier tabbladen bijven geselecteerd staan.

Om er voor te zorgen dat de bladen gedeselecteerd worden en de focus blijft op het tabblad waar vandaan de macro bediend werd; heb ik de derde regel toegevoegd.

Inmiddels al diverse alternatieven geprobeerd maar dat lukt nog steeds niet.

Wat doe ik verkeerd?

Alvast bedankt!

Henk

 

[edmoor]

Kijk eens naar dit voorbeeldje:
Bekijk bijlage ZoomVoorbeeld.xlsm

 

[Masjimo]

Ik denk dat ik begrijp wat je wil laten zien, maar er gebeurt niets.....

En ik zie ook geen VBA....

 

[edmoor]

Dan was je te vlug denk ik
Download het voorbeeld uit #2 nog eens.

 

[Masjimo]

Ik zit op een Macbook en krijg de melding:

Deze werkmap bevat inhoud die niet wordt ondersteund in deze versie van Excel.

Ik heb Office 365 hierop draaien.....

 

[edmoor]

Da's dan jammer.
Op MacOS wordt VBA slechts sumier ondersteund.

Probeer dit dan eens:

    Dim cs As String
    
    cs = ActiveSheet.Name

    Sheets(Array("Pers", "Mat", "Huur", "Koop")).Select
    ActiveWindow.Zoom = Range("A5")
    Sheets(cs).Select

 

[Masjimo]

Maar je weet geen oplossing voor het deserteren van de meerdere geselecteerde tabbladen?

 

[edmoor]

Kijk eens naar de gewijzigde #6.

Als die ook deserteert is 'ie weg

 

[Masjimo]

Krijg ik de melding: Het subscript valt buiten het bereik.

En blijven de tabbladen geselecteerd.....

 

[edmoor]

Plaats dan je document.

 

[Masjimo]

Die is vrij groot en bevat nogal wat persoons gegevens.......
FF kijken of ik hem kan reduceren.

 

[Masjimo]

Hierbij het voorbeeldje

 

[edmoor]

Zo werkt 'ie hier prima:

Sub ZoomWeek()
    cs = ActiveSheet.Name
    Sheets(Array("Pers", "Mat", "Huur", "Inkoop-OA")).Select
    ActiveWindow.Zoom = Sheets("Mat").Range("A5")
    Sheets(cs).Select
End Sub

 

[Masjimo]

Toch vreemd op m'n macbook geeft ie foutmelding 400

En blijven de tabbladen geselecteerd......

 

[edmoor]

Hoe voer je die code uit?

 

[Masjimo]

middels het besturingselement

 

[edmoor]

Welk besturingselement?

 

[Masjimo]

Dat links boven in de hoek staat.

Als ik hierop klik springt de focus steeds terug naar het tabblad Pers, terwijl ik op een van de andere tabbladen sta.....

 

[edmoor]

Je moet eerst zorgen dat alle sheets op 100 staan.
Dan kan je pas beginnen met het gebruik van die knoppen:
Bekijk bijlage Kopie van Zoomenvb-1.xlsm

 

[Masjimo]

Ze stappen nog niet allemaal gelijktijdig naar de zelfde stand...

Het doel was dat ze dan gelijktijdig allemaal in-/uit-zoomen.

De zoom werkt niet op alle tabbladen nu...