OpenOffice.info

habs raus , dankesehr hatte das mit cellbackcolor auch vor aber allerdings an nem falschen object =( aber nu klappt alles

   letzte_Zeile = oCellCursor.getRangeAddress.EndRow
   j = j - 1
   k = k + 1

Diese 3 Zeilen müssen dann raus
[code] letzte_Zeile = oCellCursor.getRangeAddress.EndRow
j = j - 1
k = k + 1[/code]

myrows.removebyindex(j,1)

osheet.getcellbyposition(0,j).CellBackColor = RGB(255,0,0)

Aloha

Für Deinen Lösungsweg würde das simple Ersetze von
[code]myrows.removebyindex(j,1)[/code]
durch
[code]osheet.getcellbyposition(0,j).CellBackColor = RGB(255,0,0)[/code]
wohl reichen.
Das runter- bzw. hochzählen musst Du dann natürlich rausnehmen, da keine Zeilen mehr gelöscht werden.

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 Sub

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 :
[code]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 Sub[/code]

gruß
schnubber