Seite 1 von 1
Re: Makro- doppelte zeilen löschen
Verfasst: Di, 20.05.2008 00:52
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
Re: Makro- doppelte zeilen löschen
Verfasst: Mi, 28.05.2008 00:47
von Karolus
Re: Makro- doppelte zeilen löschen
Verfasst: Di, 23.08.2011 14:05
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?
Re: Makro- doppelte zeilen löschen
Verfasst: Di, 23.08.2011 15:15
von komma4
Re: Makro- doppelte zeilen löschen
Verfasst: Do, 14.08.2014 09:42
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?