Private Sub CommandButton1_Click()
On Error GoTo EERR
Dim AAAB As Long
Dim AAAC As Long
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
ActiveSheet.Range("a5:a10000").Cells.Find(What:=Suchen, lookat:=xlWhole).Activate
End If
AAAB = CDbl(ActiveCell.Row)
AAAC = CDbl(ActiveCell.Column)
ActiveSheet.Cells(AAAB, AAAC + 1) = TextBox1.Value
ActiveSheet.Cells(AAAB, AAAC + 2) = ComboBox2.Value
ActiveSheet.Cells(AAAB, AAAC + 3) = TextBox3.Value
ActiveSheet.Cells(AAAB, AAAC + 4) = TextBox4.Value
ActiveSheet.Cells(AAAB, AAAC + 5) = TextBox5.Value
ActiveSheet.Cells(AAAB, AAAC + 6) = ComboBox6.Value
ActiveSheet.Cells(AAAB, AAAC) = ActiveSheet.Cells(AAAB - 1, AAAC).Value + 1
ComboBox7.Value = ActiveSheet.Cells(AAAB, AAAC)
ComboBox7.Value = " "
With ActiveSheet
ComboBox7.RowSource = .Range(.Cells(5, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Adress(External:=True)
End With
Exit Sub
EERR:
End Sub