Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Filter von einer Tabelle löschen

Filter von einer Tabelle löschen
15.11.2018 11:41:58
einer
Hallo,
in diesem Script
Private Sub Workbook_Open()
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
Next wksSheet
Läuft die Zeile ".ShowAllData" auf einmal in den Debugger, nachdem das Script lange problemlos lief.
Leider komme ich nicht dahinter, was den Fehler auslöst, deshalb wäre die erste Eingrenzung, das Script auf nur das Tabellenblatt "Übertrag" zu begrenzen.
Kann mir bitte jemand helfen, wie ich das Script umschreiben muss.
Vielen Dank
Hans
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter von einer Tabelle löschen
15.11.2018 13:33:06
einer
Hallo Hans,
und welcher Fehler?
Hast du vielleicht die Blätter in der Zwischenzeit mit Blattschutz versehen?
Gruß Werner
AW: Filter von einer Tabelle löschen
16.11.2018 07:14:39
einer
Hallo Werner,
danke für den Tipp. Tatsächlich hat einer der Anwender auf einem Tabellenblatt einen Blattschutz gesetzt. nun habe ich das Script darauf angepasst.
Unabhängig davon wäre es prima, wenn ich ein Script hätte, dass nur auf einem Tabellenblatt die gesetzten Filter rausnimmt.
Viele Grüße
Hans
Anzeige
AW: Filter von einer Tabelle löschen
16.11.2018 09:07:29
einer
Hallo Hans,
und wo ist das Problem? Dann nimm doch einfach die For - Next Schleife raus und sprich das entsprechende Tabellenblatt direkt an.
Private Sub Workbook_Open()
With Worksheets("DeinBlattname")
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
End Sub
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Filter von einer Tabelle löschen in Excel


Schritt-für-Schritt-Anleitung

Um Filter aus einer Tabelle in Excel zu löschen, kannst du die folgenden Schritte befolgen:

  1. Öffne Excel und lade die Datei, in der du die Filter entfernen möchtest.
  2. Wähle das Tabellenblatt aus, das die gefilterten Daten enthält.
  3. Klicke auf die Registerkarte "Daten" im Menüband.
  4. Wähle "Filter" aus, um die Filter zu deaktivieren. Alternativ kannst du auch die Schaltfläche „Alle Filter löschen“ verwenden.
  5. Um einen VBA-Code zu verwenden, kannst du das folgende Skript einfügen:
    Private Sub Workbook_Open()
       With Worksheets("DeinBlattname")
           If .AutoFilterMode Then
               If .FilterMode Then
                   .ShowAllData
               End If
           End If
       End With
    End Sub

    Stelle sicher, dass du "DeinBlattname" durch den tatsächlichen Namen deines Blattes ersetzt.


Häufige Fehler und Lösungen

  • Excel Filter lässt sich nicht entfernen: Überprüfe, ob das Tabellenblatt geschützt ist. Ein Blattschutz kann das Löschen der Filter verhindern. Entferne den Blattschutz, um die Filter zu löschen.

  • Excel Filter löschen geht nicht: Manchmal kann ein Fehler im VBA-Skript auftreten. Stelle sicher, dass das Skript korrekt geschrieben ist und dass du die richtige Tabelle angesprochen hast.


Alternative Methoden

Wenn du die Filter schnell entfernen möchtest, kannst du auch die Funktion "Alle Filter aufheben" verwenden:

  1. Gehe zu Daten und klicke auf Filter.
  2. Klicke auf den Dropdown-Pfeil in der Spaltenüberschrift und wähle Alle auswählen.

Ein weiteres nützliches Makro, um alle Filter auf einmal zu entfernen, wäre:

Sub AlleFilterEntfernen()
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        If wks.AutoFilterMode Then
            wks.ShowAllData
        End If
    Next wks
End Sub

Praktische Beispiele

Ein Beispiel für die Verwendung von VBA, um Filter zu löschen, könnte wie folgt aussehen:

Sub FilterLöschen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Übertrag")

    If ws.AutoFilterMode Then
        If ws.FilterMode Then
            ws.ShowAllData
        End If
    End If
End Sub

Dies entfernt alle Filter von dem Blatt „Übertrag“.


Tipps für Profis

  • Verwende den Befehl .AutoFilter zum gezielten Entfernen von Filtern. Du kannst spezifische Kriterien setzen, um nur bestimmte Filter zu löschen.

  • Denke daran, deine Makros zu speichern und sie auf einem neuen Blatt zu testen, bevor du sie in produktiven Dateien anwendest.

  • Wenn du oft Filter setzt und entfernst, kannst du ein Makro erstellen, das dies automatisiert.


FAQ: Häufige Fragen

1. Wie kann ich alle Filter in einer Excel-Tabelle entfernen?
Du kannst alle Filter entfernen, indem du die Schaltfläche "Filter" in der Registerkarte "Daten" klickst oder ein entsprechendes VBA-Makro verwendest.

2. Was tun, wenn der Filter nicht gelöscht werden kann?
Überprüfe, ob das Blatt geschützt ist oder ob es ein aktives Filterkriterium gibt, das die Funktion .ShowAllData blockiert. Entferne gegebenenfalls den Schutz oder setze die Filter zurück.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige