Wenn Sie mit Arbeitsmappen arbeiten, an denen Ihre Kollegen zuerst gearbeitet haben, ist der Zoomfaktor, den diese anderen auf diese Arbeitsmappen anwenden, möglicherweise frustriert. Wenn Ihre Kollegin (Wanda) beispielsweise einen riesigen Monitor hat, ist es nicht ungewöhnlich, dass sie den Zoomfaktor in Excel auf 75% oder sogar 60% reduziert. Der Zweck ist natürlich, dass sie nicht von Dingen überwältigt wird, die bei vollem Zoomfaktor sehr groß aussehen.

Das Problem ist, dass der Zoomfaktor mit der Arbeitsmappe gespeichert wird. Wenn Wanda die Arbeitsmappe speichert und an Sie weitergibt, wird die Arbeitsmappe beim Öffnen weiterhin mit dem Zoomfaktor angezeigt, den Wanda zuletzt verwendet hat.

Wenn Sie nicht die gleiche Monitorgröße wie Wanda haben, ist die Arbeitsmappe auf Ihrem System möglicherweise fast unleserlich.

Es gibt nur zwei mögliche Lösungen für dieses Problem. Zunächst können Sie den Zoomfaktor einfach anpassen, sobald Sie die Arbeitsmappe öffnen. Es gibt eine Vielzahl von Möglichkeiten, dies zu tun. Am einfachsten ist jedoch die Zoomeinstellung in der Formatierungssymbolleiste oder die Verwendung des Mausrads. (Auf einigen Systemen müssen Sie möglicherweise die Strg-Taste gedrückt halten, damit das Scrollrad den Zoomfaktor anpasst.)

Die zweite Problemumgehung besteht darin, ein Makro zu erstellen, das mit der Arbeitsmappe gespeichert wird. Das Makro kann jedes Mal ausgeführt werden, wenn die Arbeitsmappe geöffnet wird, und dadurch den Zoomfaktor einstellen. (Dieses Makro sollte im VBA-Editor zum Fenster Diese Arbeitsmappe hinzugefügt werden.)

Private Sub Workbook_Open()

ActiveWindow.Zoom = 100 End Sub

Das einzige Problem mit einem solchen Makro ist natürlich, dass jedes Mal, wenn Wanda (Ihre Kollegin) die Arbeitsmappe auf ihrem System öffnet, der Zoomfaktor eingestellt wird und sie mit Ihnen genauso frustriert ist wie mit ihr.

Möglicherweise besteht eine Lösung darin, ein komplexeres Makro zu erstellen, das die aktuelle Bildschirmauflösung überprüft und dann den Zoomfaktor entsprechend einstellt.

Zum Beispiel könnte das folgende Makro verwendet werden, um die Anpassungen basierend auf der Auflösung vorzunehmen:

Declare Function GetSystemMetrics32 Lib "user32" _     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Sub ScreenRes()

Dim lResWidth As Long     Dim lResHeight As Long     Dim sRes As String

lResWidth = GetSystemMetrics32(0)

lResHeight = GetSystemMetrics32(1)

sRes = lResWidth & "x" & lResHeight     Select Case sRes         Case Is = "800x600"

ActiveWindow.Zoom = 75         Case Is = "1024x768"

ActiveWindow.Zoom = 125         Case Else             ActiveWindow.Zoom = 100     End Select End Sub

Diese Routine überprüft die Bildschirmauflösung und passt das Fenster entsprechend an. Andere Auflösungen und Zooms können einfach hinzugefügt werden. Um die Routine automatisch auszuführen, verwenden Sie einfach einen Workbook_Open-Ereignishandler im Fenster Diese Arbeitsmappe, um das Makro auszulösen:

Private Sub Workbook_Open()

ScreenRes End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2668) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Immer mit 100% Zoom öffnen.