Jump to content

alle Filter für ein Tabellenblatt löschen

From The Document Foundation Wiki
This page is a translated version of the page Macros/Calc/ba027 and the translation is 100% complete.


Zusammenfassung

Diese Seite zeigt ein LibreOffice Basic Makro, das den aktuellen Tabellenfilter durch einen leeren Filter ersetzt. Es ist ein Beispiel aus Kapitel 13 ("Calc als Datenbank") aus dem Handbuch zu Calc 7.0.

Beschreibung

Wenn ein neuer Filter für das Tabellenblatt angelegt wird, wird jeder bereits existierende Filter ersetzt. Um daher einen Filter für das Tabellenblatt zu entfernen, reicht es, einen neuen, leeren Filter für das Tabellenblatt anzulegen (siehe folgender Code).

Code

Sub RemoveSheetFilter()
  Dim oSheet          ' zu filterndes Tabellenblatt
  Dim oFilterDesc     ' Filterbeschreibung
  
  oSheet = ThisComponent.getSheets().getByIndex(0)
  oFilterDesc = oSheet.createFilterDescriptor(True)
  oSheet.filter(oFilterDesc)
End Sub

Dieses Calc Tabellenblatt enthält den obigen LibreOffice Basic Code.