Thema: InputBox-Wert in TextBox

Home

Abbildung - InputBox-Wert in TextBox

Code:


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

Code:


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

Code:


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

Code:


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

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: InputBox aufrufen und Wert in aktive TextBox eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Wert über InputBox abfragen
- Wenn kein Wert angegeben wurde, Programm beenden
- Wert in aktive TextBox eintragen

Code:


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