If Combo6.Text = "Thriller" Then
                            Set oXLApp = New Excel.Application
                            Set oWbk = oXLApp.Workbooks.Open( _
                              "K:\Projekte\Filmdatenbank\datenbank.xlsx")
                            Set oWks = oWbk.Worksheets("Thriller")
                            Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, _
                              "B").Value = Text1.Text
                            End If