Hallo Tor,

vielen Dank für die schnelle Antwort :-)

Lässt sich dieser Befehl auch erst im nachinein ausführen in Kombination mit z.B einem "OK"-Button?

Das der Benutzer erst alle Felder ausfüllt und dann überprüft wird ob eins leer gelassen wurde?

So vielleicht?

Private Sub CommandButton1_Click()

  'Range("A4") = TextBox1.Value
  
  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