Alle Blätter beim Start Zoomen
13.12.2003 18:18:37
Stefan Glander
ich habe folgendes Problem:
Beim öffnen der Datei rufe ich 3 weiter Datein mit
Private Sub Workbook_Open()
ActiveWindow.Zoom = 75
ActiveWindow.WindowState = xlMaximized
Dim wbkA As Workbook, wbkB As Workbook, wbkC As Workbook, wbkD As Workbook
Set wbkA = ThisWorkbook
Set wbkB = Workbooks.Open("f:\Datei2.xls")
Set wbkC = Workbooks.Open "f:\Datei3.xls")
Set wbkD = Workbooks.Open("f:\Datei4.xls")
wbkA.Sheets(1).Activate
End Sub
auf.
Wie ereiche ich das alle Tabellenblätter mit Zoomfaktor 75% angezeigt werden ?
Gruss
Stefan Glander
Anzeige