Attribute VB_Name = "Bildschirmaufloesung"
'Bildschirmauflösung in eine Zelle Schreiben
'Einfach in eine Zelle die Formel "=ScreenResolution()" schreiben
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Const HORZRES = 8
Const VERTRES = 10

Function ScreenResolution()

Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long

lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize

End Function
'Zum Testen im Direktfenster:
Sub GetScreenSize()
Debug.Print ScreenResolution()
End Sub