Private Sub CommandButton1_Click()
Dim i&
With Worksheets("Name des Tabellenblattes")
i = .Range("B2").End(xlDown).Row + 1
.Cells(i, "C").Value = TextBox1
.Cells(i, "D").Value = TextBox8
.Cells(i, "E").Value = TextBox2
.Cells(i, "F").Value = TextBox3
.Cells(i, "G").Value = TextBox4
.Cells(i, "H").Value = ComboBox2
.Cells(i, "I").Value = ComboBox3
.Cells(i, "J").Value = TextBox5
.Cells(i, "K").Value = TextBox6
.Cells(i, "L").Value = TextBox7
End With
End Sub