openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Oliver Brinzing <Oliver.Brinz...@gmx.de>
Subject Re: [SOLVED] Re: Calc Autofilter aktiv?
Date Sun, 14 Jun 2015 14:02:23 GMT
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-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message