Textboxen mit schleife loeschen
hary
Bin wieder am ueben. Durch ein anderes Forum bin ich auf die Frage gestossen:
Wie loesche ich alle, zur Laufzeit erstellte TextBoxen, in Userform.
Hab die letzte Std. damit verbracht Codes aus dem Archiv auszuprobieren. Irgendwo der Wurm drin. Erstellt werden die Boxen mit folgendem Code.
Auch das loeschen klappt,aber es muss jedes mal der Button geklickt werden.
Hapert nur an der Schleife. Hab hier 2007, ob es daran liegt, dass die Codes aus dem Archiv nicht funzen, kann ich nicht pruefen.
Dim MyTextBox As Control
Private Sub CommandButton1_Click()
Dim MyTxt As Control
Dim Anzahl As Long
Dim stand
stand = 15
For Anzahl = 1 To 6
Set MyTextBox = UserForm1.Controls.Add("Forms.TextBox.1", "MyTextBox", Visible)
With MyTextBox
.Left = 18
.Top = stand
.Width = 175
.Height = 20
End With
stand = stand + 30
Next
End Sub
Private Sub CommandButton2_Click()
'-----Hier muesste die Schleife rein -------------
UserForm1.Controls.Remove MyTextBox.Name
End Sub
Bitte um einen Schub's
mit einem Sommergruss
hary