alle Filter für ein Tabellenblatt löschen

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


    Other languages:

    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.