Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Textbox+Combobox in Textbox
16.06.2021 10: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
Anzeige
AW: Textbox+Combobox in Textbox
16.06.2021 11: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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige