OpenOffice.info

... wo ein Wille ist, da ist auch ein Weg ...

Sub S_delete_empty_rows
    otable = Thiscomponent.Texttables.getbyname("Tabelle1")
    ncounter = 0
    for i = (otable.Rows.count - 1) to 1 step -1
        if otable.getcellbyposition(0,i).String = "" then
        otable.rows.removeByIndex(i,1)
        ncounter = ncounter + 1
        endif
    next i
    msgbox "Es wurde/n " & ncounter & " Zeile/n gelöscht"
End Sub

Bitteschön.
[code]Sub S_delete_empty_rows
otable = Thiscomponent.Texttables.getbyname("Tabelle1")
ncounter = 0
for i = (otable.Rows.count - 1) to 1 step -1
if otable.getcellbyposition(0,i).String = "" then
otable.rows.removeByIndex(i,1)
ncounter = ncounter + 1
endif
next i
msgbox "Es wurde/n " & ncounter & " Zeile/n gelöscht"
End Sub[/code]
HTH R