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