Gruppe
Dialog
Problem
Ein Wert soll in die gerade aktive TextBox einer UserForm eingetragen werden.
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