kann jemand helfen, möchten gerne in der Spalte B, wenn leer ist, komplette Zeile löschen.
Haben diesen Code gefunden, leider dauert es zu lange, der einzeln die Spalte löscht, da ich bis 400 Spalten habe, kann jemand eine besseren Code geben?
Code: Alles auswählen
ocursor=osheet.createCursor
ocursor.gotoEndOfUsedArea(true)'benutzten Bereich festlegen
oRowsnumber=ocursor.rows.count
k=0
for i=0 to oRowsnumber
ocell=osheet.getcellbyposition(1,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
Danke für die Hilfe
Moderation,4: Betreff angepasst