wüsste mir bitte Jemand wie man eine Erweiterung ( Zoom Auflösung für ein Tabellenblatt das sich selbst einstellt, soll auf alle Tab. übernommen werden )
auf die anderen Tabellenblätter übernimmt.
Beim Starten der Datei stellt sich die Starttabelle selbstständig per VBA Anweisung alleine ein. In der gesamten Arbeitsmappe sind etwa 30 Tabellenblätter vorhanden .
Wenn nun für das Starttab. ein Wert von bspw. 99% errechnet werden würde sollte dieser
Wert ( Auflösung / Zoomwert ) auch automatisch auf alle Anderen Tab. übernommenwerden.
Weis Jemand von Euch zufällig wie dieser Code aussehen würde ?
Die selbstständige Auflösungsanweisung in VBA Form sieht wie folgt aus .
Starttabellenblatt:
Sub auto_open()
Sheets("Info").Select ' Wechsel zum Starttabellenblatt
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
range("A1:O1").Select ' sichtbarer Bilschirmbereich ( Zoom ) durch Spaltenangabe definiert
ActiveWindow.Zoom = True ' Zoomeinstellung des vorher festgel. Auswahlbereiches
hier müsste nun die Übernahme in alle Tabellenblätter stehen
usw.
....
Vielleicht könntet ihr mir helfen , ich kenn den hier notwendigen Ausdruck leider nicht.
Vielen herzlichen Dank im Voraus ,
Gruß udo