Jedes Arbeitsblatt unterstützt den Service Searchdescriptor. Mit diesem kann man die
Zellen
durchsuchen. Dies muß für jedes Arbeitsblatt erfolgen.
Dann am besten in einer Schleife.
odoc = thiscomponent
For iSheets = 0
To oDoc.sheets.Count -1
oSheet
= oDoc.Sheets( iSheets )
oSearchDescriptor
= oSheet.createSearchDescriptor
oSearchDescriptor.SearchString
= "XXXX"
oFound
= oSheet.FindFirst( oSearchDescriptor )
Do
Until isNull(oFound)
'
oFound ist die Zelle auf die die Suche zutrifft
oFound
= oSheet.FindNext( oFound, oSearchDescriptor )
Loop
Next iSheets