Ich habe eine Userform erstellt mit einer Textbox1.
Nun möchte ich wenn in der TextBox eine Zahl eingegeben wird
sich weitere TextBoxen in der Userform erstellen
BSP: wenn in der Textbox1 die Zahl 5 steht sollen 5 weitere TextBoxen erstellt werden
Option Explicit
Private Sub UserForm_Activate()
Me.Height = 110 + Me.TextBox1.Top
End Sub
Private Sub TextBox1_AfterUpdate()
Dim intBox As Integer
If IsNumeric(Me.TextBox1) Then
If CInt(Me.TextBox1)
Option Explicit
Private Sub TextBox5_AfterUpdate()
Dim LoI As Long
Dim obj_TxT As MSForms.TextBox ' Variable für Objekt als neuen _
OptionButton
Dim loZaehler As Long
loZaehler = 1
If IsNumeric(TextBox5) Then
For LoI = 1 To CInt(TextBox5)
Set obj_TxT = Me.Controls.Add("Forms.Textbox.1", "Textbox_Neu" & LoI, True)
With obj_TxT
.Left = 12 ' Position links
.Top = 25 * loZaehler ' Position oben
.Width = 150 ' Breite
.Height = 25 ' Höhe
End With
loZaehler = loZaehler + 1
Next LoI
End If
End Sub
Dim intZaehler As Integer
Dim strAnzeige As String
For intZaehler = 2 To 5
If Me.Controls("TextBox" & intZaehler) = "" Then
strAnzeige = strAnzeige & vbLf & Me.Controls("TextBox" & intZaehler).Name
End If
Next intZaehler
If strAnzeige "" Then MsgBox "Folgende TextBoxen sind leer:" & vbLf & strAnzeige
For intZaehler = 2 To 5
If Me.Controls("TextBox" & intZaehler) = "" Then
If Me.Controls("TextBox" & intZaehler).Visible Then _
strAnzeige = strAnzeige & vbLf & _
Me.Controls("TextBox" & intZaehler).Name
End If
Next intZaehler
""
abgefragt und auch nicht der TextBox-Name sondern der TextBox-Inhalt verwendet werden muss.