---

Hallo

Ich habe z.B. eine UserForm mit zwei Textfeldern untereinander und ich möchte über die Betätigung einer Befehlsschaltfläche ein weiteres Textfeld unten anhängen und gleichzeitig die Grösse der UserForm anpassen!

Wie muss ich da vorgehen?

Vielen Dank für eure Hilfe

var

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Var,

könnte zB so etwa gehen:

'Modul deineUserform.frm
Private Sub CommandButton1_Click()
With TextBox3
  If .Visible = False Then
    Height = 130
    .Visible = True
  Else
    .Visible = False
    Height = 100
  End If
End With
End Sub

Private Sub UserForm_Initialize()
TextBox3.Visible = False
Height = 100
End Sub

CU Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP