Funktion

Function FnCountCells (iStartCol As Long , iStartRow As Long, iTab As Integer) As Long

    REM Zählt die Anzahl nichtleerer Zellen, beginnend ab Spalte iStartCol und Zeile iStartRow in Tabelle iTab

    Dim oSheet
    Dim iAnz As Long
    oSheet =ThisComponent.Sheets(iTab)
    iAnz = 0
    Do Until oSheet.getCellByPosition( iStartCol , iStartRow ).getType = 0
        iAnz = iAnz + 1
        iStartRow = iStartRow +1
    Loop
    FnCountCells = iAnz
End Function