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