nur 2 Fenster nebeneinander anordnen
13.11.2006 15:36:36
Margarete
ich habe ein Makro, mit dem ich bei mehreren Fenstern nur 2 vertikal nebeneinander anordnen kann.
Sub AktivesFensterRechts()
On Error Resume Next
Application.ScreenUpdating = False
strWert = ActiveWorkbook.Name
ActiveWindow.WindowState = xlNormal
For i = 1 To Workbooks.Count
ActiveWindow.ActivateNext
With ActiveWindow
.Top = 1
.Left = 1
.Width = 440
.Height = 600
End With
Next i
Windows(strWert).Activate
With ActiveWindow
.Top = 1
.Left = 440
.Width = 440
.Height = 600
End With
Set wkb = Nothing
Application.ScreenUpdating = True
End Sub
Das funktioniert bei meinen Kollegen nicht so richtig, da ich mehrere Symbolleisten sichtbar habe.
Wie muß ich das Makro ändern, daß nur 2 Fenster nebeneinander sicht bar sind und dennoch die innere Excel-Bildschirm voll ausgefüllt ist, auch wenn mehr als 2 Fenster geöffnet sind und unterschiedlich viele Symbolleisten sichtbar sind?
Es würde mich freuen, wenn jemand Rat wüßte. Schon mal vielen Dank im voraus.
Nette Grüße
Margarete
Anzeige