Sub CommandButton1_Click()
Dim rng As Range
Dim Suchen As Variant
ActiveSheet.[all] = 0
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
If ComboBox7 <> " " Then
Suchen = ComboBox7.Value
Set rng = ActiveSheet.Range("a5:a10000").Cells.Find(What:=Suchen, lookat:=xlWhole)
If rng Is Nothing Then
GoTo EERR
End If
End If
If IsNumeric(rng.Value) Then
rng.Offset(ColumnOffset:=1).Value = TextBox1.Value
rng.Offset(ColumnOffset:=2).Value = ComboBox2.Value
rng.Offset(ColumnOffset:=3).Value = TextBox3.Value
rng.Offset(ColumnOffset:=4).Value = TextBox4.Value
rng.Offset(ColumnOffset:=5).Value = TextBox5.Value
rng.Offset(ColumnOffset:=6).Value = ComboBox6.Value
rng.Value = rng.Offset(RowOffset:=-1).Value + 1
ComboBox7.Value = rng.Value
ComboBox7.Value = " "
With ActiveSheet
ComboBox7.RowSource = .Range(.Cells(5, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Adress(External:=True)
End With
End If
Exit Sub
EERR:
End Sub