Möchte gerne beim öffnen der Userform diese autom. der Bildschirmgrösse anpassen. Was muss ich da genau in der Sub welche die Userform öffnet ergänzen?
Vielleicht kann mir hier jemand weiterhelfen?
Vielen Dank
Michael
Sub öffnen()
For i = 2 To 500
If ActiveWorkbook.ActiveSheet.Cells(i, 1).Value „“ Then Userform1.ListBox1.AddItem (ActiveWorkbook.ActiveSheet.Cells(i, 1).Value)
Next
Userform1.Show
End Sub
Man, da brauchst Du das Form_load Ereignis der userform (UF).
Setze nun die Werter der UF.heigh und uf.width mit den Bildschirmparametern gleich. Diese musst Du aber auch noch zuvor abfragen über z.B. die Windows-API Funktionen. Siehe z.B. der Code von www.vbfun.de
Option Explicit
Public Declare Function GetDeviceCaps Lib „gdi32“ ( _
ByVal hdc As Long, ByVal nIndex As Long) As Long
Const HORZRES = &H8
Const VERTRES = &HA
Public Sub Bildschirm()
Dim intBreite As Integer, intHoehe As Integer
intBreite = GetDeviceCaps(Me.hdc, HORZRES)
intHoehe = GetDeviceCaps(Me.hdc, VERTRES)
Text1.Text = Str(intBreite) & " * " & Str(intHoehe)
End Sub
Grüsse Sebastian
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]