Textbox+Combobox in Textbox

Forumthread: Textbox+Combobox in Textbox
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Textbox+Combobox in Textbox

16.06.2021 12:34:20

Aigner

Hallo! Vielleicht kann mir doch jemand helfen.
Ich habe hier eine Datei gefunden welche in der Userform2 nur Comboboxen enthalten hat. Funktioniert auch.
Nun wollte ich vor den neben den Comboboxen jeweils eine Textbox einfügen um eine Zahl einzugeben leider sind meine Versuche nichts geworden.
Die angefügte Datei ist original nur die Textboxen sind von mir eingefügt.
In der Userform1-Textbox sollen dann die Werte der Userform2.Textbox1 & " " & Userform2.Combobox1 & " / " & Userform2.Textbox1 & " " & Userform2.Combobox2 & " / " usw
angezeigt werden
https://www.herber.de/bbs/user/146631.xlsm
Ich hoffe ich habe das Problem genügend beschrieben.
Danke im voraus.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox+Combobox in Textbox

16.06.2021 13:20:19

Rudi

AW: Textbox+Combobox in Textbox

16.06.2021 13:20:19

Rudi

Hallo,


Private Sub CommandButton1_Click()
Dim i As Integer, strOut As String
Const strDELIM As String = " / "
For i = 1 To 6
If Controls("Textbox" & i)  "" And Controls("Combobox" & i)  "" Then
strOut = strOut & strDELIM & Controls("Textbox" & i) & " " & Controls("Combobox" & i)
End If
Next i
If Len(strOut) Then
UserForm1.TextBox1.Value = Mid(strOut, Len(strDELIM) + 1)
End If
Unload Me
End Sub

Gruß
Rudi