kann ich eine Textbox in einer Userform automatisch an die Größe der Userform anpassen?
Ich möchte gern den Bildschirm maximal ausnutzen, aber egal, ob es ein 17, 19 oder 21-Zoll Monitor ist.
Die UF habe ich wie folgt an die Bildschirmgröße angepasst.
Private Sub UserForm_Activate()
Select Case Application.WindowState
Case xlMaximized
Me.Height = Application.Height - 5 'Korrrektur für Taskleiste = 5
Me.Width = Application.Width - 5 'Korrektur schmäler = 5
Me.Left = 0
Me.Top = 0
End Select
End Sub
Achja unterhalb der Textbox müsste noch etwas Luft bleiben zum Platzieren der Weiter-Schaltfläche :)Gruß Steffen