VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Während der Laufzeit TextBox erstellen und auslesen

Gruppe

Dialog

Bereich

TextBox

Thema

Während der Laufzeit TextBox erstellen und auslesen

Problem

Während der Laufzeit soll eine TextBox hinzugefügt und ausgelesen werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.





ClassModule: frmDesigner

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdCreateText_Click()
   Dim oTxt As MSForms.TextBox
   Set oTxt = Me.Controls.Add("forms.TextBox.1")
   With oTxt
      .Name = "MeineTextBox"
      .Left = 10
      .Top = 10
      .Text = "Neue TextBox"
   End With
End Sub

Private Sub cmdReadText_Click()
   MsgBox Me.Controls("MeineTextBox").Text
End Sub

Private Sub UserForm_Click()

End Sub

StandardModule: Modul1

Sub CallForm()
   frmDesigner.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox