komme in eine Löschfunktion mit einem String und will alle Sätze in sheet(0) löschen die diesen String in der Spalte B haben.
Habe das so realisiert:
Code: Alles auswählen
function checkadb(ls_suchnummer as string) as boolean
dim lo_zelle as object
dim lo_zeile as object
dim ls_zellinhalt as string
dim li_i as integer
dim li_del_count as integer
li_del_count = 0
li_i=0
do
lo_zelle = go_adbsheet.getcellbyposition( 1 , li_i )
ls_zellinhalt = lo_zelle.string
if ls_zellinhalt = ls_suchnummer then
lo_zeile=go_adbsheet.getrows
lo_zeile.removebyindex(li_i,1)
li_del_count = li_del_count + 1
else
li_i = li_i +1
end if
loop until ls_zellinhalt = ""
if li_del_count > 0 then
checkadb = true
end if
end function
Code: Alles auswählen
oZelleOderBereichOderBlatt = ThisComponent.Sheets(0).getCellRangeByName( "B1:C10000" )
oSuchBeschreibung = oZelleOderBereichOderBlatt.createSearchDescriptor()
With oSuchBeschreibung
.SearchString = ls_suchnummer
.SearchBackwards = False
.....................................................
Ich hoffe meine Frage macht Sinn ?
Danke