Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblätter unterschiedlich zoomen

Forumthread: Tabellenblätter unterschiedlich zoomen

Tabellenblätter unterschiedlich zoomen
04.05.2017 14:07:33
Marc
Hi,
ich versuche meine Tabellenblätter am Ende der Verarbeitung abhängig von der Menge an Daten unterschiedlich zu zoomen - bisher ohne Erfolg.
Jetzt habe ich schon gelesen, dass diese Eigenschaft nur fürs ganze Excel-Sheet trägt, aber das will ich nicht glauben. Ich kann das ja manuell pro Blatt anpassen wie ich möchte...
Folgendes habe ich versucht:
Sub DarstellungVerkleinern(Value As Integer, Name As String)
Dim sht As Worksheet
Set sht = Sheets(Name)
ActiveWindow.Zoom = Value
End Sub
Ein Aufruf von
Call Allgemein_Format.DarstellungVerkleinern(70, "Blatt 1")
Call Allgemein_Format.DarstellungVerkleinern(80, "Blatt 2")
endet aber in 80% für Blatt 1 und unveränderterten 100% für Blatt 2.
Und auch so hats nicht geklappt:
Sub DarstellungVerkleinern(Value As Integer, Name As String)
Worksheets(Name).PageSetup.Zoom = Value
End Sub
Das hier bewirkt gar nix bei gleichem Aufruf wie oben...
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter unterschiedlich zoomen
04.05.2017 15:06:51
Michael
Hallo!
Versuch's mal so:
Sub TestIt()
Call BlattZoom(200, "Tabelle2")
End Sub
Sub BlattZoom(Faktor%, Blatt$)
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets(Blatt)
Dim WsQ As Worksheet: Set WsQ = ActiveSheet
Application.ScreenUpdating = False
With ActiveWindow
WsZ.Activate: .Zoom = Faktor
WsQ.Activate
End With
End Sub
LG
Michael
Anzeige
AW: Tabellenblätter unterschiedlich zoomen
08.05.2017 09:28:43
Marc
Danke. Hat funktioniert.
Gern, Danke für die Rückmeldung, owT
08.05.2017 11:47:27
Michael
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige