Tabellenblätter unterschiedlich zoomen
04.05.2017 14:07:33
Marc
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
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