Private Sub b_Gruppe1_Click()
Dim lngLast As Long, lngNext As Long
On Error Resume Next
lngLast = gruppe1.Cells.Find("*", [A1], -4123, 2, 1, 2, False).Row
On Error GoTo 0
lngNext = lngLast + 1
gruppe1.Cells(lngNext, 1) = tb_datum.Value
gruppe1.Cells(lngNext, 2) = tb_blau.Text
gruppe1.Cells(lngNext, 3) = tb_gelb.Text
gruppe1.Cells(lngNext, 4) = tb_rot.Text
gruppe1.Cells(lngNext, 5) = tb_grün.Text
Unload frm_Eingabe
End Sub