AW: Excelfenstergröße und Position
03.06.2008 08:23:14
UweD
Hallo
evtl. gibt es eine einfachere Möglichkeit...
Hier mein Versuch:
Private Sub Workbook_Open()
Dim H&, W&
With Application
.ScreenUpdating = False
.WindowState = xlMaximized
'Ermittlung der Maxwerte
H = .Height
W = .Width
.WindowState = xlNormal
.Width = W / 2
.Left = W / 2
.Top = 0
.Height = H
.ScreenUpdating = True
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application .WindowState = xlMaximized
End Sub
- dazu den VB-Editor öffnen (Alt+F11)
- falls der Project-Explorer nicht erscheint, Strg+R
- doppelclick auf DieseArbeitsmappe
- beide Codeteile reincopieren
Gruß UweD