|
Also ein bißchen deutlicher als der erste Beitrag scheints jetzt schon. Ich nehme jetzt mal an, daß Du
ComboBox48 für Schlosser
ComboBox49 für Helfer
ComboBox50 für Elektriker
[ ... ]hast.
Dann wäre für die Textbbox (sie sei mal TextBox1) der jeweilige Code für die ComboBox
Private Sub ComboBox48_Change()
Dim CTR As Control
'Schlosser
TextBox1.Text = ""
ComboBox48.Tag = ComboBox48.SelText & " Schlosser" 'hier bei jeder Combobox den entsprechenden Text übergeben.
For Each CTR In UserForm1.Controls
If InStr(1, UCase(CTR.Name), "COMBOBOX") <> 0 And CTR.Tag <> "" Then
If TextBox1.Text = "" Then
TextBox1.Text = CTR.Tag
Else
TextBox1.Text = TextBox1.Text & Chr(10) & CTR.Tag
End If
End If
Next
End Sub
Hoffe ich habe Dich richtig verstanden.
Severus
|