Makro- doppelte zeilen löschen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Karolus
********
Beiträge: 7438
Registriert: Mo, 02.01.2006 19:48

Re: Makro- doppelte zeilen löschen

Beitrag von Karolus »

Hallo
Falls die Tabelle sortiert ist und ein Vergleich in Spalte A ausreicht ?

Code: Alles auswählen

Sub dubletten_loeschen
odoc = ThisComponent
osheet = odoc.sheets(0) '1. Tabblatt
orows = osheet.getrows
do while osheet.getcellbyposition(0,i+1).string <> "" 'Prüfung auf Inhalt in Spalte A
	do while osheet.getcellbyposition(0,i).string = osheet.getcellbyposition(0,i+1).string 
		orows.removebyindex(i+1,1) 'index und Anzahl
	loop
	i = i + 1
loop
End Sub[
Gruß Karo
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
Karolus
********
Beiträge: 7438
Registriert: Mo, 02.01.2006 19:48

Re: Makro- doppelte zeilen löschen

Beitrag von Karolus »

LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.2.1 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
jav666
Beiträge: 5
Registriert: Mo, 30.11.2009 10:51

Re: Makro- doppelte zeilen löschen

Beitrag von jav666 »

wohin muss den der code

Code: Alles auswählen

Sub dubletten_loeschen
odoc = ThisComponent
osheet = odoc.sheets(0) '1. Tabblatt
orows = osheet.getrows
do while osheet.getcellbyposition(0,i+1).string <> "" 'Prüfung auf Inhalt in Spalte A
   do while osheet.getcellbyposition(0,i).string = osheet.getcellbyposition(0,i+1).string 
      orows.removebyindex(i+1,1) 'index und Anzahl
   loop
   i = i + 1
loop
End Sub[
kopiert werden?
Benutzeravatar
komma4
********
Beiträge: 5332
Registriert: Mi, 03.05.2006 23:29
Wohnort: Chon Buri Thailand Asia
Kontaktdaten:

Re: Makro- doppelte zeilen löschen

Beitrag von komma4 »

Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
esel1975
Beiträge: 2
Registriert: Do, 14.08.2014 07:57

Re: Makro- doppelte zeilen löschen

Beitrag von esel1975 »

Karolus hat geschrieben:Hallo
Falls die Tabelle sortiert ist und ein Vergleich in Spalte A ausreicht ?

Code: Alles auswählen

Sub dubletten_loeschen
odoc = ThisComponent
osheet = odoc.sheets(0) '1. Tabblatt
orows = osheet.getrows
do while osheet.getcellbyposition(0,i+1).string <> "" 'Prüfung auf Inhalt in Spalte A
	do while osheet.getcellbyposition(0,i).string = osheet.getcellbyposition(0,i+1).string 
		orows.removebyindex(i+1,1) 'index und Anzahl
	loop
	i = i + 1
loop
End Sub[
Gruß Karo
Hey,

Wie würde das Makro aussehen, wenn ich eine komplette Zeile bzw. mehrere Suchkriterien (z.B. Name und Vornamen und Adresse) vergleichen will und dann eben auch löschen will, so es ein doppelter Eintrag ist? Wie und wo kann man die Anzahl der Suchkriterien sprich Spalten verändern?
Gesperrt