Hallo Leute

folgendes wollte am PC und am Laptop eine Arbeitsmappe bearbeiten und natürlich sollte sich die Auflösung variieren. (Da im Laptop auf 125% gezoomt wird)

Erste Lösungsansatz war:

Private Sub Worksheet_Activate()

Range("C1:Z52").Select
ActiveWindow.Zoom = True
currentZoom = ActiveWindow.Zoom = True

End Sub

in jedem Arbeitsblatt...soweit so gut, es funzt in paar Blättern, aber erstens wird in manchen Blättern, der Select-Bereich grau markiert zum anderen in den Arbeitsblättern wo eine Userform hinterlegt ist bei Click, Ergo Select, taucht sie vorher auf und nach schließen kommt das Arbeitsblatt...

Also kam Idee zu sagen "Nehm den Zoom Faktor vom ersten Blatt und übertrage es auf die anderen" nur da scheitere ich leider mit allen Lösungen :(

Hat jemand Vorschlag? Achja insgesamt sind es 15 Blätter davon 3 Intelligente Tabellen wo aber Kopfzeile haben....

Grüße