mehrere Comboboxen in eine Zelle

Function WerteEintragen1()
Dim i As Long
Rows("4:19").Hidden = False
Range("A1").Select
If Not wks Is Nothing Then
For i = 4 To 19
If wks.Cells(i, 1).Value = "" Then
wks.Cells(i, 1).Value = Me.ComboBox2.Value
wks.Cells(i, 2).Value = "bis"
wks.Cells(i, 3).Value = Me.ComboBox4.Value
wks.Cells(i, 10).Value = Me.ComboBox6.List(ComboBox6.ListIndex, 0)
wks.Cells(i, 4).Value = Me.TextBox1.Text
wks.Cells(i, 5).Value = Me.TextBox2.Text
wks.Cells(i, 6).Value = Me.ComboBoxStr.Value & " " & Me.TextBox4.Text
wks.Cells(i, 7).Value = Me.ComboBox5.Value
wks.Cells(i, 8).Value = Me.ComboBoxOrt.Text 'Ort
wks.Cells(i, 9).Value = Me.ComboBox21.Value & " " & Me.ComboBox22.Value & " " &  _
Me.ComboBox23.Value & " " & Me.ComboBox24.Value & " " & Me.ComboBox25.Value & " " & Me.ComboBox26.Value & " " & Me.ComboBox27.Value .......
wks.Cells(i, 11).Value = Me.TextBox11.Text
wks.Cells(i, 16).Value = "x"
If CheckBoxZentr = True Then
wks.Cells(i, 13).Value = "x"
Else
wks.Cells(i, 14).Value = "x"
End If
If CheckBoxTranspZ = True Then
wks.Cells(i, 19).Value = "x"
Else
wks.Cells(i, 20).Value = "x"
End If
Exit For
End If
Next i
End If
End Function