Excel und VBA: Formeln, Programmierung, Lösungen

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

    

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