Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert in jeweils aktive UserForm-TextBox eintragen

Gruppe

TextBox

Problem

Ein Wert soll in die gerade aktive TextBox einer UserForm eingetragen werden.

Lösung
Geben Sie den Ereigniscode in die nachfolgend genannten Module ein.

ClassModule: frmTextBoxes

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim txt As String
   txt = InputBox("Wert eintragen:", , 12)
   If txt = "" Then End
   gtxtBox.Text = txt
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Set gtxtBox = Controls("TextBox1")
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Set gtxtBox = Controls("TextBox2")
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Set gtxtBox = Controls("TextBox3")
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Set gtxtBox = Controls("TextBox4")
End Sub

StandardModule: basMain

Public gtxtBox As MSForms.TextBox

Sub CallForm()
   frmTextBoxes.Show
End Sub