Dim excel As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet
 
        wb = excel.Workbooks.Open("d:\irgendwas.xls")
        ws = wb.Sheets("Tabelle1")
 
        Dim r As Microsoft.Office.Interop.Excel.Range
 
        r = ws.Range("A:A").Find("")
 
        MessageBox.Show(r.Row)
 
        wb.Close(False)
        ws = Nothing
        wb = Nothing
        excel.Quit()
        excel = Nothing

EALA FREYA FRESENA