Private Function strZellenwert(ByVal strDateiname As String, ByVal _
  strTabellenblattname As String, ByVal strZelle As String) As String
 
    Dim dtDataTable As New DataTable 
    Dim dbConnection As OleDb.OleDbConnection  
    Dim dbDataAdapter As OleDb.OleDbDataAdapter 
 
    dbConnection = New OleDb.OleDbConnection
    dbConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
      "Data Source=" & strDateiname & ";" & "Extended Properties='Excel" & _
      "8.0;HDR=NO'"
    dbConnection.Open()
    dbDataAdapter = New OleDb.OleDbDataAdapter("Select * From " & "[" & _
      strTabellenblattname & "$]", dbConnection)
      dbDataAdapter.Fill(dtDataTable)
      strZellenwert = dtDataTable.Rows(intZeile(strZelle)).Item(intSpalte( _
        strZelle)).ToString
    dbConnection.Close()
 
  End Function