Excel.XlDirection.xlDown

 
Public objXls1 As Object
 
Public NandexDatenBank As Object
 
Dim Anzahl,wsnr,Feld,feldnr as integer
Dim path as string
 
 
 
objXls1 = CreateObject("Excel.Application")
 
NandexDatenBank = objXls1.Workbooks.Open(pathWS)
 
 
'Bestimmen der Anzahl der besetzten Spalten
 Anzahl = xldown(wsnr, Feld, feldnr)
 
 
    Function xldown(ByVal wsnr, ByVal feld, ByVal feldnr) As Integer
        objXls1 = CreateObject("Excel.Application")
        Return NandexDatenBank.Worksheets(wsnr).Range(feld(feldnr)).End( _
          objXls1.XlDirection.xlDown).Row
    End Function