Zoom immer auf 100 %

Bild

Betrifft: Zoom immer auf 100 % von: Dirk Strelow
Geschrieben am: 24.02.2005 11:05:50

Hallo,

wie kann ich einstellen, dass jede Excel Tabelle mit 100 % geöffnet wird, egal was der Vorgänger eingestellt hat?
Habe da eine Idee mit einem Malro, aber das müsste ja dann mit jeder Datei automatisch starten ...

Wer hat einen Idee?

Gruß
Dirk

Bild


Betrifft: AW: Zoom immer auf 100 % von: Detlef
Geschrieben am: 24.02.2005 11:16:49

Hallo,
versuchs mal so:
Diese Arbeitsmappe
In workbook - open

Private Sub Workbook_open()
For t = 1 To Sheets.Count
    Sheets(t).Select
    ActiveWindow.Zoom = 100
Next t
End Sub


Gruß Detlef


Bild


Betrifft: AW: Zoom immer auf 100 % von: Detlef
Geschrieben am: 24.02.2005 11:16:54

Hallo,
versuchs mal so:
Diese Arbeitsmappe
In workbook - open

Private Sub Workbook_open()
For t = 1 To Sheets.Count
    Sheets(t).Select
    ActiveWindow.Zoom = 100
Next t
End Sub


Gruß Detlef


Bild


Betrifft: AW: Zoom immer auf 100 % von: Dirk Strelow
Geschrieben am: 24.02.2005 11:20:50

Hoi,

das ging ja fix hier,
aber es funktioniert leider nur bei der einen Datei,
dies sollte aber eine Grundsätzliche Einstellung für die Zukunft sein,
auch wenn eine Datei per Mail von einem Kollegen kommt.

Gruß
Dirk


Bild


Betrifft: AW: Zoom immer auf 100 % von: Josef Ehrensberger
Geschrieben am: 24.02.2005 11:47:40

Hallo Dirk!

Ein kleine AddIn kann das erledigen!

Speichere die Datei in deinem AddIn-Verzeichnis, oder wo du
gerne möchtest, und aktiviere es unter > Extras > AddIn-Manager!

https://www.herber.de/bbs/user/18663.xla

Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: Zoom immer auf 100 % von: Dirk Strelow
Geschrieben am: 24.02.2005 12:03:50

Hallo,

vielen Dank, es funktioniert :-).

Gruß
Dirk


Bild


Betrifft: AW: Zoom immer auf 100 % von: Bert
Geschrieben am: 24.02.2005 11:17:44

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.Zoom = 100
End Sub


Bert


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Veröffentlichen von Arbeitsmappen entfernen"