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: [email protected]
For additional commands, e-mail: [email protected]
