ich ermittle i vorher in einer schleife:
Dim i As Integer
i = 0
'-------------------------------------
' Zelle A1 liegt auf Position 0,0
oZelle = oTabellenblatt.getCellByPosition( 0, 0 )
'msgbox oZelle.type
'--------------------------------------
Do While oZelle.type <> com.sun.star.table ...