Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
String in Pfad zur TextBox
#1
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
Zitieren
#2
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
Gruß der AlteDresdner (Win11, Off2021)
Zitieren
#3
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 :-)
Zitieren
#4
Keine Bange,
Textboxen die unter Verein.Multipage2.Frame1 liegen, sind genauso mit Verein.Controls(strpath) anzureden.
Versuch macht klug!
Gruß der AlteDresdner (Win11, Off2021)
Zitieren
#5
Thumbs Up 
(25.05.2022, 20:32)AlterDresdner schrieb: 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.....
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions