Office: Excel 2016 VBA

Hallo Excel VBA Community *Smilie

Ich habe ein altes, neues Problem und habe bislang noch keine zufriedenstellende Lösung finden können

Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern unterschiedlicher Größe (Spaltenanzahl). Auch in der Anzahl der Zeilen gibt es Unterschiede zwischen den einzelnen Tabellenblättern.

Diese Arbeitsmappe öffne ich an drei unterschiedlichen Bildschirmen und muss jedesmal den Zoom für jedes Arbeitsblatt manuell einstellen.

Gibt es einen Code, den ich beispielsweise in ein Modul einfüge, sodass beim öffnen der Arbeitsmappe die Zoomwerte automatisch eingestellt werden.

Für Hilfe zur Lösung dieses leidigen Problems wäre ich sehr, sehr dankbar.

Gruß
Hakan

:)

 

mal eine Antwoert, im Stil de Frage.

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt in der gesamten Datei.
Ereignis Open
ActiveWindow.Zoom = 75

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Moin auch von mir!
Möchtest Du alle Überschriften sehen?
Dann ist ein fester Zoom (bei unterschiedlicher Spaltenzahl in den verschiedenen Sheets) natürlich nicht hilfreich.
Überschriften in Zeile 1, beginnend ab Spalte A:

Microsoft Excel Objekt DieseArbeitsmappe

Gruß Ralf

 

Hallo Hajo, hallo Ralf

Ich danke Euch beiden, dass Ihr versuchen möchtet, mir zu helfen.

Ich habe Ralfs Code in einer Test-Arbeitsmappe im Editorfenster unter diese Arbeitsmappe hinzugefügt.

Danach habe ich zwei Tabellen mit unterschiedlichen Spaltenzahlen eingerichtet. Meine Monitor-Auflösung ist 2560 x 1440 bei 32"

Wenn ich nun die Arbeitsmappe mit Makros abspeichere und erneut öffne, werden, obwohl ich die Bildschirmauflösung noch nicht verändert habe, beide in der Arbeitsmappe befindlichen Tabellen auf 400 Prozent hochgezoomt.

Wo habe ich den Fehler gemacht.

Gruß
Hakan *Smilie

 

Hier der Link zu meiner Testarbeitsmappe
https://1drv.ms/x/s!AkIOJGg6BtpQoXBGAJ4LTGdu56rO

 

Hallo Forum Community

Ich konnte das Problem mit Hilfe eines der besten Menschen die ich online traf, lösen.

In meiner Tabelle war die erste Zeile ausgeblendet und es gab außerhalb meiner eigentlichen Tabelle formatierte Bereiche, die das Wirken des Codes verhinderten.

Ich schließe nun hiermit das Thema als erledigt und möchte mich herzlich auch bei den Helfern in diesem Forum bedanken. Der Wille zu Helfen ist, was zählt.

Mit freundlichen Grüßen
Hakan K.