String in Pfad zur TextBox

[StefKe]

Hallo, so funzt der Code leider nicht:

Code:

Sub text()
Dim path
Dim txtBox
path = "TextBox5"
Set txtBox = Verein. & path 'Verein = Userform
txtBox.Value = "text"
End Sub

aber wie muss er formuliert werden?

Danke
Stefan

[AlterDresdner]

Hallo Stefan,
Sub mytext() 'ist aber umständlich
'der Name eines Subs oder einer Variablen sollte nie ein Schlüsselwort sein (text, path)
  Dim mypath
  Dim txtBox
  path = "TextBox5"
  Set txtBox = Verein.Controls(path)  'Verein = Userform
  txtBox.Value = "text"
End Sub
Sub mytext() 'einfach
  Verein.TextBox5 = "text"
End Sub

[StefKe]

Da hast Du recht, das passt so. Der Grund liegt darin das mehrere Codes die Sub nutzen.

Code:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    DatumCheck ("TextBox1")
End Sub

Sub DatumCheck(strPath As String)
    Dim objTxtBx As Object
    Dim strDate As String

    Set objTxtBx = Verein.Controls(strPath)
    strDate = objTxtBx.Value
    On Error Resume Next
    If IsError(CStr(CDate(strDate))) = True Then
        Errormessage ("bitte ein korrektes Datum eingeben")
        objTxtBx.Value = ""
        On Error GoTo 0
Else:
        objTxtBx.Value = CDate(objTxtBx.Value)
    End If
End Sub

Sub Errormessage(strMessage As String)
MsgBox strMessage, vbOKOnly Or vbExclamation, "Eingabefehler"
End Sub

Es gibt aber auch Textboxen die unter Verein.Multipage2.Frame1 liegen. An dem Punkt wird Verein.Controls(strPath) nicht mehr funzen. Bin mir aber unsicher ob das wirklich so ist. Oder ob es eher sinnvoll ist alle Textboxen unterschiedlich zu benennen.. Ich eben noch am Basteln - Try and Error :-)

[AlterDresdner]

Keine Bange,
Textboxen die unter Verein.Multipage2.Frame1 liegen, sind genauso mit Verein.Controls(strpath) anzureden.
Versuch macht klug!

[StefKe]

Keine Bange,
Textboxen die unter Verein.Multipage2.Frame1 liegen, sind genauso mit Verein.Controls(strpath) anzureden.
Versuch macht klug!

Danke, und wieder Zeit gespart :-)
und ... eine schönen Abend noch von einem nicht ganz so alten waschechten Dresdner.....