Private Sub Cbutt_neu_Click()
Dim loZeile As Long
With Worksheets("Filme")
loZeile = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
.Cells(loZeile, 1) = Tbox_tit.Text
.Cells(loZeile, 2) = Tbox_gen.Text
.Cells(loZeile, 3) = Tbox_d1.Text
.Cells(loZeile, 4) = Tbox_d2.Text
.Cells(loZeile, 5) = Tbox_d3.Text
.Cells(loZeile, 6) = Tbox_gr.Text
.Cells(loZeile, 7) = Tbox_doc.Text
.Cells(loZeile, 8) = Tbox_bem.Text
End With
Unload UForm_Film
End Sub