LibreOffice-Forum

Code: Alles auswählen

Sub Delete_Rows_with_empty_D_Cell

osheet=thisComponent.currentcontroller.activesheet
ocursor=osheet.createCursor
ocursor.gotoEndOfUsedArea(true)'benutzten Bereich festlegen
oRowsnumber=ocursor.rows.count
k=0
for i=0 to oRowsnumber
ocell=osheet.getcellbyposition(3,i)'3 entspricht Zeile D, 0=A,1=B,2=C,3=D,...
if ocell.Type = com.sun.star.table.CellContentType.EMPTY then 'leere Zellen in Spalte D finden
osheet.rows.removeByIndex(i,1) 'aktuelle Zeile löschen
i=i-1
endif
k=k+1
if k=oRowsnumber then exit for
next i
msgbox "Alle Zeile, in denen Zelle D leer war, wurden gelöscht!"
End Sub