Private Sub CommandButton1_Click()
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then
MsgBox "Bitte etwas eintragen"
TextBox1.SetFocus
Cancel = True
End If
End Sub
With Worksheets("")
.Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row) = TextBox1.Value
.Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Offset(1).Row) = TextBox2.Value
.Range("C" & .Cells(.Rows.Count, "C").End(xlUp).Offset(1).Row) = TextBox3.Value
.Range("D" & .Cells(.Rows.Count, "D").End(xlUp).Offset(1).Row) = TextBox4.Value
.Range("E" & .Cells(.Rows.Count, "E").End(xlUp).Offset(1).Row) = TextBox5.Value
.Range("F" & .Cells(.Rows.Count, "F").End(xlUp).Offset(1).Row) = TextBox6.Value
.Range("G" & .Cells(.Rows.Count, "G").End(xlUp).Offset(1).Row) = TextBox7.Value
.Range("H" & .Cells(.Rows.Count, "H").End(xlUp).Offset(1).Row) = TextBox8.Value
.Range("I" & .Cells(.Rows.Count, "I").End(xlUp).Offset(1).Row) = TextBox9.Value
.Range("J" & .Cells(.Rows.Count, "J").End(xlUp).Offset(1).Row) = TextBox10.Value
.Range("K" & .Cells(.Rows.Count, "K").End(xlUp).Offset(1).Row) = TextBox11.Value
.Range("L" & .Cells(.Rows.Count, "L").End(xlUp).Offset(1).Row) = TextBox12.Value
.Range("M" & .Cells(.Rows.Count, "M").End(xlUp).Offset(1).Row) = TextBox13.Value
.Range("N" & .Cells(.Rows.Count, "N").End(xlUp).Offset(1).Row) = TextBox14.Value
.Range("O" & .Cells(.Rows.Count, "O").End(xlUp).Offset(1).Row) = TextBox15.Value
.Range("P" & .Cells(.Rows.Count, "P").End(xlUp).Offset(1).Row) = ComboBox1.Value
.Range("Q" & .Cells(.Rows.Count, "Q").End(xlUp).Offset(1).Row) = ComboBox2.Value
.Range("R" & .Cells(.Rows.Count, "R").End(xlUp).Offset(1).Row) = TextBox16.Value
.Range("S" & .Cells(.Rows.Count, "S").End(xlUp).Offset(1).Row) = TextBox17.Value
End With
UserForm1.Hide
End Sub