Vielen Dank
Kurt Brachvogel
Sub FensterHalberBildschirm()
Dim T As Single
Dim L As Single
Dim W As Single
Dim H As Single
With ActiveWindow
.WindowState = xlMaximized
T = .Top
L = .Left
H = .Height
W = .Width
.WindowState = xlNormal
.Top = T
.Left = L
.Height = H
.Width = W * 0.5 'hier über Faktor die Breite einstellen.
End With
End Sub