Public Function ExcelDatenHolen(ByVal Film As String, ByVal Titel As String) As _
  String
   Dim i As Integer
   Dim Darsteller As String
   Dim Flag As Byte
   Excel.Workbooks.Open FileName:=Film, Password:="pw"
   Do While Flag = 0
     i = i + 1
     Excel.Range("C" & CStr(i)).Select
     If InStr(1, UCase(Titel), UCase(Excel.Selection)) > 0 Then
        Excel.Range("F" & CStr(i)).Select
        Darsteller = Excel.Selection
        Debug.Print ">"; Darsteller '**** warum wird hier nix zurückgegeben??
        Exit Do
     End If
     If Excel.Selection = "ENDE" Then Flag = 1
   Loop
   Excel.Workbooks.Close
   ExcelDatenHolen = Darsteller
End Function

Public Function ExcelDatenHolen(ByVal Film As String, ByVal Titel As String) As _
  String
   Dim Target As Excel.Range
   With Excel
      .Workbooks.Open FileName:=Film, Password:="pw"
      .ActiveWorkbook.Sheets("Tabelle1").Select 'sofern die Daten in Tabelle1 
      ' sind!
      .ActiveSheet.Range("C:C").Select
      Set Target = Selection.Find(Titel, LookIn:=xlValues)
      If Not Target Is Nothing Then
         ExcelDatenHolen = .ActiveSheet.Cells(Target.Row, 6).Value
      End If
      .ActiveWorkbook.Saved = True 'muss sein, sonst kommt eine Meldung.
      .ActiveWorkbook.Close
   End With
End Sub