per VBA bestimten TextBox "befüllen"

[mikikado]

Hallo Forumler!

Ich habe ein UserForm in der per Button die "nächste" TextBox erstellt. Bezeichnung der TextBoxen wird hochgezählt:

Screenshot_2.jpg

Der Code hierzu:

Code: Alles auswählen

    Set txt = Me.Controls.Add("Forms.TextBox.1", BxTxt, True)
       
        With txt
            .Top = wTop
            .Left = wLefttxt + 78
            .SetFocus
        End With

Es gibt einen zweiten Button mit der ein Dialog geöffnet und eine Datei kann gesucht werden.

Das klappt auch per:

Code: Alles auswählen

Function Dialog_Bild() As String

With Dialogs(wdDialogInsertPicture)
    .Display
    Dialog_Bild = .Name
End With
End Function

Die TextBoxen "erstelle" ich ja per Button und vergebe einen bestimmten Namen:

Code: Alles auswählen

BxTxt = "txtBxFoto" & namz

variable namz wird "hochgezählt"
Wie erreiche nun, dass ich dieses eben erstellte TextBox ansprechen kann (Pfad der ausgesuchten Datei soll hier "gespeichert" werden)??

Irgendwie komme ich nicht weiter und habe im Netz nichts vergleichbares gefunden als Lösung. Vielleicht habe ich auch mit falschen Begriffen gesucht.

Wer kann mir helfen?

Für Ihre Bemühungen besten Dank im Voraus.

Hg
Michael

[knobbi38]

Hallo Michael,

über die Controlsauflistung der Userform, z.B.

Code: Alles auswählen

Me.Controls("Textbox" & 1).Value = "Hallo"

Andere Variante:
Um von den Namen unabhängig zu sein, kannst du die beim Erstellen die zurückgegebene Objektreferenz

Code: Alles auswählen

Set txt = Me.Controls.Add("Forms.TextBox.1", BxTxt, True)

auch in eine Collection speichern und optional mit einem Key versehen.
Dann kannst du diese dann auch direkt über den Index oder den Key ansprechen.
Analog würde das auch mit einem einfachen Array gehen, worin die Objektreferenzen abgelegt werden.

Andere Frage:
Warum so umständlich? Für so etwas würde man normalerweise eine Listbox nehmen, anstatt neue Controls zu erzeugen. Das wäre mit deutlich weniger Aufwand verbunden.

Gruß Ulrich

[mikikado]

Hallo!

Ich habe es so gelöst:

Code: Alles auswählen

Private Sub cmdbtn2_Click()
Dim objtxt    As MSForms.Control

Const cstrCtlName As String = "txt"

For Each objtxt In UserForm1.Controls
 
  If objtxt.Name Like cstrCtlName & "*" Then
    MsgBox objtxt.Name
        If objtxt = "" Then
            objtxt = Dialog_Bild
        End If
       
  End If

Next
   

End Sub

[knobbi38]

Hallo Michael,

das ist jetzt keine so gute Lösung, weil "txt" der übliche Präfix für alle Textboxen ist und ein Vergleich mit Like und einem Platzhalter auch nicht optimal ist. So würde alle Textboxen angesprochen, wenn du dich an die gängigen Namenskonventionen hälst.

Deine ursprüngliche Fragestellung war, wie ganz gezielt einen Textbox angesprochen werden kann. Wie bereits gezeigt, geht das mit der Controls-Auflistung.
Wenn du eine bestimmte Gruppe von Textboxen mit fortlaufender Nummer ansprechen möchtest, geht das auch über die Controls-Auflistung, in dem du an Namen der Textbox die lfd. Nummer anhängst.
Möchtest du unabhängig von Namen der Textbox eine Schleife durchlaufen und eine Gruppe ansprechen, gibt es auch die Tag Eigenschaft, die dafür genutzt werden könnte:

Code: Alles auswählen

Dim ctl As Control
 
For Each ctl In Me.Controls
  If TypeName(ctl) = "TextBox" Then
    If ctl.Tag = "Grp_Bild" Then
      ' Todo
    End If
  End If
Next


Hier werden z.B. alle Textbox-Controls mit der Tag-Eigenschaft "Grp_Bild" angesprochen und ausgewertet.

Gruß Ulrich