so grob als Anhaltspunkt
Private Sub CommandButton1_Click() Cells(1, ComboBox1.ListIndex + 1) = TextBox1.Value Cells(2, ComboBox1.ListIndex + 1) = TextBox2.Value Cells(3, ComboBox1.ListIndex + 1) = TextBox3.Value End Sub