Hallo Bernd,
>
filters=ubound(Thiscomponent.DatabaseRanges.getByName(Rg).Filterdescriptor.filterfields)
> Rg ist eine NamedRange die die Range des Filterbereichs enthält. Zu sehen
> unter >Daten>Bereich festlegen.
Wenn Du keine NamedRange bzw. DataBaseRange definiert hast (z.B. wenn der
Anwender den
Autofiler einfach irgendwo eingeschaltet hat), könnte man damit wohl den
anonymen Autofilter
und den Datenbereich ermitteln:
REM ***** BASIC *****
Sub Main
n = Thiscomponent.DatabaseRanges.getCount()
If n > 0 Then
' e.g.: "__Anonymous_Sheet_DB__1"
mElem() = Thiscomponent.DatabaseRanges.getElementNames()
' com.sun.star.table.CellRangeAddress
oAddr =
Thiscomponent.DatabaseRanges.getByName(mElem(0)).getDataArea()
MsgBox "sheet index: " & oAddr.Sheet
EndIf
End Sub
Gruß
Oliver
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org
