|
zwischen "private sub" und "end sub" gehört nur das was ich dir geschickt hatte. Mehr nicht. Und für die Komiker hier, habe ich das iiiii mal klein gemacht.
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
|