title image


Smiley Kein Problem
Hallo Harald,



setze diesen Code in deine Mappe:



Option Explicit

 

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

 

Public Enum ScreenArgs

    HORIZONTAL

    VERTIKAL

End Enum

 

Public Function ScreenResolution(HV As ScreenArgs) As Long

    If HV = 0 Or HV = 1 Then ScreenResolution = GetSystemMetrics(HV)

End Function

 

Sub Choose_Table()

If ScreenResolution(0) = 1024 Then

    Worksheets("1024").Select

Else

    Worksheets("800").Select

End If

End Sub





Code eingefügt mit Syntaxhighlighter 1.12



Teile dieses Codes sind von ThomasR aus dem Forum.
Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: