Dim x As Object
        Dim wb As Object
        Dim sh As Object
        Dim GefZelle As Object
        Dim Row As Integer = 0
 
 
        x = CreateObject("Excel.Application")
 
        wb = x.workbooks.open("d:\juhu.xlsx")
 
        sh = wb.sheets("Tabelle1")
 
        GefZelle = sh.columns("A:A").find(What:="")
 
        If GefZelle Is Nothing Then
            MessageBox.Show("Es wurde keine leere Zelle gefunden!")
        Else
            Row = GefZelle.row - 1
            MessageBox.Show("Die gesuchte Zeile befindet sich in Zeile :" & Row)
        End If

EALA FREYA FRESENA