🙏 Helfen Sie mit, unser LibreOffice Forum zu erhalten! 🙏
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱

🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀

❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Lösche leere Zeile wenn Zelle D=leer

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
F3K Total
* LO-Experte *
Beiträge: 2501
Registriert: So 10. Apr 2011, 10:10

Re: Lösche leere Zeile wenn Zelle D=leer

Beitrag von F3K Total » Mi 12. Okt 2011, 20:24

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
Windows 11: AOO, LO Linux Mint: AOO, LO

komma4
Beiträge: 185
Registriert: Sa 13. Aug 2011, 10:01
Wohnort: Chonburi Thailand Asia
Kontaktdaten:

Re: Lösche leere Zeile wenn Zelle D=leer

Beitrag von komma4 » Do 13. Okt 2011, 07:06

F3K Total hat geschrieben: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...
Cheers
Winfried
aktuell: openSuse 13.1 mit LO 4.3.7.2
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als Extension)

F3K Total
* LO-Experte *
Beiträge: 2501
Registriert: So 10. Apr 2011, 10:10

Re: Lösche leere Zeile wenn Zelle D=leer

Beitrag von F3K Total » Do 13. Okt 2011, 20:11

Siehste,
da habe ich wieder was gelernt.
Danke komma4

Beste Grüße von Rik
Windows 11: AOO, LO Linux Mint: AOO, LO


An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:


Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.



Antworten