Zoom per VBA über alle Tabellenblätter
27.04.2006 20:19:26
Stefan
ich erbitte mal wieder eure Hilfe. In Tabelle 1 habe ich mir per SpinButton (der mit Pfeil nach oben und nach unten) erstellt. Dieser ändert bei Betätigung den Bildschirmzoom in 10er Schritten. Nachfolgenden Code habe ich in Tabelle1 stehen:
Private Sub SpinButton1_Change()
M = [D1] * 10
neuer_Faktor = [D3] + M
ActiveWindow.Zoom = neuer_Faktor
End Sub
'in D1 ist die Zellverknüpfung vom Button
'in D3 steht der Anfangswert 50 und erhöht sich oder verringert sich bei Betätigung des Buttons
Leider funktioniert es nur in dieser Tabelle. Ich möchte, das gleich alle 4 Blätter die gleiche Zoomeinstellung bekommen. Nur weiß ich nicht wie das geht. Der Code müßte dazu wohl in -Diese Arbeitsmappe- stehen, aber ich bekomme das mit der makierung der Blätter nicht hin.
Hat jemand eine Idee die mir weiterhilft.
Vielen Dank und Gruß
Stefan