OpenOffice.info

Code: Alles auswählen

Sub Test_insert
    insert_row(5)'6. Zeile
end Sub

Sub Test_remove
    Remove_row(7)'8. Zeile
end Sub

Sub insert_row(i)
    osheet = thiscomponent.currentcontroller.activesheet
    oRows = osheet.Rows
    oRows.insertByIndex(i,1)'1 = eine Zeile einfügen
End Sub

Sub Remove_row(i)
    osheet = thiscomponent.currentcontroller.activesheet
    oRows = osheet.Rows
    oRows.removeByIndex(i,1)'1 = eine Zeile löschen
End Sub