Private Sub Command1_Click()
 
Dim i As Integer
 
Dim excel As Object
 
Set excel = CreateObject("Excel.Application")
 
Dim wb As Object
 
Set wb = excel.workbooks.open("e:\FindCellBeispiel2.xls")
 
Dim sh As Object
 
Set sh = wb.sheets("Tabelle1")
 
Dim gefZelle As Object
 
Set gefZelle = sh.range("A:A").find(What:="")
 
i = gefZelle.row - 1
 
MsgBox ("Die letzte Zeile ist die Zeile: " & i)
 
Set gefZelle = Nothing
 
Set sh = Nothing
 
wb.Close (False)
 
Set wb = Nothing
 
Set excel = Nothing
 
MsgBox ("Fertig")
 
End Sub

EALA FREYA FRESENA