Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

automatisch Zoom-Faktor beim Öffnen

automatisch Zoom-Faktor beim Öffnen
06.01.2015 11:35:42
Wolfango
Hallo zusammen,
ich möchte, dass beim Öffnen einer Excel-Datei für sämtliche enthaltenen Arbeitsblätter automatisch ein bestimmter Zoomfaktor eingestellt wird (80%).
Gibt es dafür einen VBA-Code?
Danke und Gruß,
Wo

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

Betreff
Datum
Anwender
Anzeige
ActiveWindow.Zoom = 80
06.01.2015 11:39:41
Matthias
Hallo
Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveWindow.Zoom  80 Then
ActiveWindow.Zoom = 80
End If
End Sub
Gruß Matthias

AW: automatisch Zoom-Faktor beim Öffnen
06.01.2015 11:41:56
Rudi
Hallo,
Private Sub Workbook_Open()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
wks.Activate
ActiveWindow.Zoom = 80
Next
'  Sheets(1).Activate
End Sub

Gruß
Rudi

AW: automatisch Zoom-Faktor beim Öffnen
06.01.2015 14:34:44
Wolfango
Vielen Dank!
Funktioniert bestens!
Gruß, Wo
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige