(Gelöst) Writer: Lösche Zeile aus Tab., wenn 1. Spalte leer

[F3K Total]

Bitteschön.

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

HTH R

[F3K Total]

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