[tom]

Sub Test ()

MsgBox "Hallo, Welt!"

End Sub

[tom]

Sub Test ()

MsgBox "Hallo, Welt!"

End Sub

[tom]

Sub Test ()

MsgBox "Hallo, Welt!"

End Sub

[tom]

Sub Test ()

MsgBox "Hallo, Welt"



End Sub

[tom]

Sub Test ()

MsgBox "Hallo, Welt"

End Sub

[tom]

Sub Test ()

MsgBox "Hallo, Welt"

End Sub

[tom]

Sub Test()

MsgBox "Hallo, Welt!"

End Sub

[tom]

Sub Test()

MsgBox "Hallo, Welt!"

End Sub


		
    

[tom]

Sub Test()

MsgBox "Hallo, Welt!"

End Sub

[tom]

Public Declare PtrSafe Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) As Long
Public lHsize As Long, lVsize As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Function ScreenResolution()
‘ lHsize = Breite des Bildschirms in Pixeln
‘ lVsize = Höhe des Bildschirms in Pixeln
lHsize = GetSystemMetrics(SM_CXSCREEN)
lVsize = GetSystemMetrics(SM_CYSCREEN)
End Function

• This reply was modified 2 months, 1 week aktiv. by  tom.
• This reply was modified 2 months, 1 week aktiv. by  tom.

[tom]

Sub Workbook_Open()

Call ScreenResolution

With ActiveWindow

.WindowState = xlNormal

If lHsize < 2000 Then

.Application.Width = 800

.Application.Height = 800

.Application.Left = 50

.Application.Top = 50

Else

.Application.Width = 1024

.Application.Height = 1024

.Application.Left = 150

.Application.Top = 150

End If

End With

ActiveWindow.Zoom = 145

End Sub

• This reply was modified 2 months, 1 week aktiv. by  tom.
• This reply was modified 2 months, 1 week aktiv. by  tom.

[tom]

Test 123444

Sub Test()

MsgBox "Hallo, Welt!"

End Sub

[tom]

Test zusätzliches p

Sub Test()

MsgBox "Hallo, Welt!"

End Sub

Test adasdasd

[tom]

Test 123

Sub Test()

MsgBox "Hallo, Welt!"

End Sub

Test 678

[tom]

Test 123

Sub Test()
MsgBox "Hallo, Welt!"
End Sub

Test 567