Makro doppelte daten markieren statt löschen[erledigt]
Verfasst: Di, 05.04.2011 13:37
hi leute,
hab einen folgenden script da, dieser hat die aufgabe mittels eines makros doppelte/dreifache/vierfache daten zu finden und zu löschen, allerdings nicht alle sondern wenn zb 5 daten gleich sind werden 4 gelöscht und 1 bleibt da(währe ja sonst schlimm wenn er alle löschen würde xD) ich will aber dass er mir alle zellen mit duplikaten nicht löscht sondern nur mit ner farbe markiert ...und zwar alle hat jemand ne idee? (durchsucht spalte a)
script :
gruß
schnubber
hab einen folgenden script da, dieser hat die aufgabe mittels eines makros doppelte/dreifache/vierfache daten zu finden und zu löschen, allerdings nicht alle sondern wenn zb 5 daten gleich sind werden 4 gelöscht und 1 bleibt da(währe ja sonst schlimm wenn er alle löschen würde xD) ich will aber dass er mir alle zellen mit duplikaten nicht löscht sondern nur mit ner farbe markiert ...und zwar alle hat jemand ne idee? (durchsucht spalte a)
script :
Code: Alles auswählen
Sub duplikateFiltern
odoc=thiscomponent
oSheet = oDoc.CurrentController.getActiveSheet()
myrows=oSheet.getrows
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
k = 0
for i = 0 to letzte_Zeile
text1 = osheet.getcellbyposition(0,i).string
for j = i + 1 to letzte_Zeile
text2 =osheet.getcellbyposition(0,j).string
if text1 = text2 then
myrows.removebyindex(j,1)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
j = j - 1
k = k + 1
end if
next j
next i
End Subschnubber