Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Während der Laufzeit TextBox erstellen und auslesen

Gruppe

TextBox

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