Gruppe
Dialog
Bereich
TextBox
Thema
Wert in jeweils aktive UserForm-TextBox eintragen
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