Re: Writer: Lösche Zeile aus Tabelle, wenn erste Spalte leer
Verfasst: Fr, 20.06.2014 19:07
Bitteschön.
HTH R
Code: Alles auswählen
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