Option
Explicit
Private
Sub
ComboBox1_Change()
If
TextBox1.Text =
""
Then
TextBox1.Text = ComboBox1.SelText
Else
TextBox1.Text = TextBox1.Text & Chr(10) & ComboBox1.SelText
End
If
ComboBox1.Tag =
CStr
(TextBox1.LineCount) &
" Schlosser"
Textbox3.Text = ComboBox1.Tag & Chr(10) & ComboBox2.Tag
End
Sub
Private
Sub
ComboBox2_Change()
If
TextBox2.Text =
""
Then
TextBox2.Text = ComboBox2.SelText
Else
TextBox2.Text = TextBox2.Text & Chr(10) & ComboBox2.SelText
End
If
ComboBox2.Tag =
CStr
(TextBox2.LineCount) &
" Helfer"
Textbox3.Text = ComboBox1.Tag & Chr(10) & ComboBox2.Tag
End
Sub