Ich habe bei mir jetzt den folgenden Quelltext eingebaut. Nur da gibt es ein kleines Problem. Er begint erst mit dem eintragen der Daten in Zeile 33. Er soll aber bei Zeile 4 Anfangen und dann immer die nächste freie Zeile suchen.
Danke für die Antworten!
Private Sub CommandButton1_Click()
Dim i As Long
If TextBox0 = "" Then
MsgBox "Bitte geben Sie eine Auftragsnummer ein!"
TextBox0.SetFocus
Else
If TextBox1 = "" Then
MsgBox "Bitte geben Sie mindestens eine Nummer ein!"
TextBox1.SetFocus
Else
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
i = ActiveCell.Row + 1
Worksheets("Tabelle1").Range("a" & i).Value = TextBox1.Value
Worksheets("Tabelle1").Range("B" & i).Value = TextBox2.Value
Worksheets("Tabelle1").Range("c" & i).Value = TextBox3.Value
Eingabe.Hide
End If
End If
End Sub