Im folgenden Code bekomme ich immer einen Laufzeitfehler.
Code: Alles auswählen
mydata = ThisComponent.Sheets.getByName(sht).getCellRangeByPosition(0,oFound.RangeAddresses(0).StartRow,0,oFound.RangeAddresses(0).Endrow).getDataArray()
dim i as Integer
dim c as Integer
dim datumrudi as variant
dim b as Integer
i=0
c=1
b=0
datumrudi(b) = mydata(b)
Do While mydata(c) <> ""
if mydata(i) <> mydata(c) then
b=b+1
datumrudi(b)= mydata(c)
c=c+1
i=i+1
endif
Loop
Code: Alles auswählen
Do While mydata(c) <> ""
MfG
Nopsi