0160-93 82 19 37 | Nehmen Sie 
Die Größe des Excel-Fensters ermitteln
108036
Mit diesem Makro kann die Breite, sowie die Höhe von Excel ermittelt werden.
Unterschieden wird zwischen der verwendbaren Größe von Excel, also der tatsächlichen Tabellegröße und der Fenstergröße inklusive Rahmen. Der Wert Fenstergröße ist somit immer größer als der Wert der verwendbaren Größe.
Dieses Makro kann sinnvoll zur Positionierung von UserForms eingesetzt werden.
Public Sub Größe_des_Excelfensters_ermitteln()
Dim eb As Integer
Dim eh As Integer
Dim fb As Integer
eb = ActiveWindow.UsableWidth 'verwendbare Excelbreite
eh = ActiveWindow.UsableHeight 'verwendbare Excelhöhe
fh = ActiveWindow.Height 'gesamte Fensterhöhe
fb = ActiveWindow.Width 'gesamte Fensterbreite
MsgBox "verwendbare Excelbreite = " & eb & Chr(13) & "verwendbare Excelhöhe = " & eh & Chr(13) & _
"gesamte Fensterhöhe = " & fh & Chr(13) & "gesamte Fensterbreite = " & fb
End Sub
Die Ausgabe erfolgt in einer MsgBox. Die Werte sind in Pixel angegeben.
