Lösche leere Zeile wenn Zelle D=leer

[F3K Total]

Hallo,
das geht z.B mit diesem Makro:

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

Gruß R

[komma4]

das geht z.B mit diesem Makro:

Geht auch ohne Makro:

* neue Tabelle einfügen
* Quelle wählen, Daten>Filter>Standardfilter...>Feldname:[Spaltenbeschriftung Spalte D] Bedingung = Wert -nicht leer- Mehr Optionen>>, Filterergebnisse ausgeben nach [Name neues Tabellenblatt]

Bei meiner LO 3.4.3 geht das Abwählen der Spaltenbeschriftung nicht...

[F3K Total]

Siehste,
da habe ich wieder was gelernt.
Danke komma4

Beste Grüße von Rik