String in Pfad zur TextBox

[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 :-)