Hallo, ich bin neu hier und würde gern Hilfe bekommen bei einem komischen Problem. Ich möchte die Höhe einer Userform an den Bildschirm anpassen (Me.Height = Y – 20), das klappt. Dann auch die Höhe einer Listbox1 angepasst werden (ListBox1.Height = Me.Height – ListBox1.Top – 50), das klappt nur, wenn anschließend eine MsgBox läuft. Das kann wohl nicht sein. Der Code:
Private Sub UserForm_Initialize()
Y = Application.Height
Me.Top = 0
Me.Height = Y - 20
ListBox1.Height = Me.Height – ListBox1.Top - 50
'MsgBox "123" 'ListBox1.Height reagiert nicht
MsgBox "123" 'ListBox1.Height reagiert korrekt , aber MsgBox ist natürlich unerwünscht!
End Sub
Kann mir jemand helfen? Vielen Dank schon im voraus, Kalle
|