Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform an Bildschirm anpassen

Userform an Bildschirm anpassen
29.01.2004 00:24:48
Headhunter
Hallo,
kann ich eine Userform automatisch an die Bildschirmaulösung anpassen lassen ?
Immer wenn ich die Bildschirmauflösungen ändere, ist die Userfor entweder zu gross oder zu klein, geht das auch automatisch ?
Zusatzfrage :
Wie kann ich ein Formular ( Userform ) automatisch öffnen ?
Soll heißen, ich möchte statt einer Excel Tabelle gleich die Userform öffnen !
MfG
HANS

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform an Bildschirm anpassen
29.01.2004 00:38:41
Ramses
Hallo
probier mal das aus:


Das gehört in das Initialize Ereignis deiner Userform
Option Explicit

Private Sub UserForm_Initialize()
Me.Width = ScreenResolution(1)
Me.Height = (ScreenResolution(1) / 4) * 3
End Sub

'Das gehört in ein normales Modul
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As LongAs 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

'

     Code eingefügt mit Syntaxhighlighter 2.5

Gruss Rainer
Anzeige
Leider zu kompliziert
29.01.2004 00:53:39
Headhunter
Hallo,
das einfügen in ein Modul (Modul1) hat ja noch geklappt, leider kann ich mit
diesen Sachen nichts anfangen :
Das gehört in das Initialize Ereignis deiner Userform
Option Explicit


Private Sub UserForm_Initialize()
Me.Width = ScreenResolution(1)
Me.Height = (ScreenResolution(1) / 4) * 3
End Sub

Ich weiß nicht wo ich das finden kann !
Trotzdem vielen Dank ersmal

HANS
AW: Leider zu kompliziert
29.01.2004 00:55:39
Jonathan
Du hast doch eine UF in der ein Code steht........
hier kommt auch der rein........
(klick doppelt auf die UF, dann kommst zu dem Code)
Grüße
Jonathan
Anzeige
Klappt wunderbar ! aber !?
29.01.2004 01:03:43
Headhunter
Hallo,
das funktioniert einfach wunderbar !
Aber wie kann ich gleich die Userform öffnen, ohne die Excel Tabelle `?
Vielen Dank nochmal !!!
HANS
AW: Klappt wunderbar ! aber !?
29.01.2004 06:07:07
Hajo_Zi
Hallo Hans
unter VBA, unter DieserArbeitsmappe

Private Sub Workbook_Open()
Userform1.Show
End Sub

Userformnamen anpassen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige

13 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige