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

Forumthread: Beim Öffnen alle Filter deaktivieren/löschen

Beim Öffnen alle Filter deaktivieren/löschen
07.02.2014 13:48:33
Timo
Hallo liebes Forum,
ich würde gerne meiner Exceltabelle ein Makro zuweisen um beim Öffnen zunächst alle Filter einer formatierten Tabelle1 zu deaktivieren/löschen. Im gleichen Schritt soll dann eine der Spalten nach einem bestimmten Kriterium gefiltert werden (Nach jedem Start ist also nur ein Filter aktiviert).
Ich habe mir bereits folgenden Lösungsansatz überlegt, weiß aber nicht wie man daraus ein zusammenhängendes Makro macht, bzw. ob das überhaupt der richtige Ansatz ist:
Erster Schritt: Alle Filter entfernen

Sub workbook_open()
Sheets("Tabelle1").ShowAllData
End Sub

Zweiter Schritt: In Spalte S einen Filter setzen, bei dem alle Zellen die einen Wert enthalten rausgefiltert werden:

Sub Filter()
Range("A1:AW1200").AutoFilter field:=19, Criteria1:=""
End Sub

Hat jemand eine Idee wie ich mein Vorhaben umsetzen kann?
Viele Grüße und im Voraus vielen Dank für jede Hilfe!

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Öffnen alle Filter deaktivieren/löschen
07.02.2014 14:38:58
fcs
Hallo Timo,
etwa so:
Sub Workbook_Open()
With Me.Sheets("Tabelle1")
If .FilterMode = True Then .ShowAllData
Call Filter
.Activate
End With
End Sub
Sub Filter()
With Activeworkbook.Sheets("Tabelle1")
.Range("A1:AW1200").AutoFilter field:=19, Criteria1:=""
End With
End Sub

Gruß
Franz

Anzeige
AW: Beim Öffnen alle Filter deaktivieren/löschen
07.02.2014 15:49:59
Timo
Hallo Franz,
vielen vielen Dank! Hat super funktioniert!
Beste Grüße und ein schönes Wochenende!

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Beim Öffnen alle Filter deaktivieren und löschen


Schritt-für-Schritt-Anleitung

Um in Excel alle Filter aufzuheben und beim Öffnen der Tabelle automatisch zu deaktivieren, kannst Du ein einfaches VBA-Makro erstellen. Befolge diese Schritte:

  1. Öffne die Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im linken Fenster mit der rechten Maustaste auf "Diese Arbeitsmappe".
    • Wähle "Code anzeigen".
  3. Füge den folgenden Code ein:

    Sub Workbook_Open()
       With Me.Sheets("Tabelle1")
           If .FilterMode = True Then .ShowAllData
           Call Filter
           .Activate
       End With
    End Sub
    
    Sub Filter()
       With ActiveWorkbook.Sheets("Tabelle1")
           .Range("A1:AW1200").AutoFilter field:=19, Criteria1:=""
       End With
    End Sub
  4. Speichere die Datei als Makro-aktivierte Arbeitsmappe (*.xlsm).

  5. Schließe den VBA-Editor und teste das Makro, indem Du die Datei öffnest.

Dieses Makro sorgt dafür, dass beim Öffnen der Datei alle Filter deaktiviert werden und in Spalte S ein Filter gesetzt wird, der alle Zellen ohne Wert herausfiltert.


Häufige Fehler und Lösungen

  • Fehler: Excel filter kann nicht gelöscht werden

    • Lösung: Stelle sicher, dass der Filter auf der richtigen Tabelle aktiv ist. Überprüfe auch, ob Du die richtige Tabellenbezeichnung verwendest.
  • Fehler: Excel filter lässt sich nicht entfernen

    • Lösung: Überprüfe, ob Du im richtigen Arbeitsblatt bist und ob das Makro korrekt ausgeführt wird.
  • Fehler: Excel filter löschen geht nicht

    • Lösung: Stelle sicher, dass das Arbeitsblatt nicht geschützt ist. Entferne den Schutz, bevor Du das Makro ausführst.

Alternative Methoden

Wenn Du kein Makro verwenden möchtest, kannst Du alle Filter auch manuell entfernen:

  1. Wähle die Tabelle aus.
  2. Gehe zu Daten > Filter.
  3. Klicke auf Filter löschen, um alle Filter aufzuheben.

Für eine schnellere Methode kannst Du die Tastenkombination ALT + D + F + F verwenden, um den Filtermodus zu beenden.


Praktische Beispiele

Nehmen wir an, Du hast eine Tabelle mit Verkaufsdaten und möchtest beim Öffnen alle Filter zurücksetzen. Mit dem oben genannten VBA-Makro wird dies automatisch für Dich erledigt.

Wenn Du beispielsweise eine Spalte mit Verkaufszahlen hast, kannst Du den Filter so setzen, dass nur die Zeilen angezeigt werden, die einen bestimmten Wert übersteigen. Das Makro sorgt dafür, dass die Filter immer beim Öffnen der Datei zurückgesetzt werden.


Tipps für Profis

  • Verwende Workbook_BeforeClose-Ereignis, um sicherzustellen, dass die Filter auch beim Schließen der Datei zurückgesetzt werden:

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
       With Sheets("Tabelle1")
           If .FilterMode = True Then .ShowAllData
       End With
    End Sub
  • Nutze den Shortcut CTRL + SHIFT + L, um Filter in Excel schnell zu aktivieren oder zu deaktivieren.


FAQ: Häufige Fragen

1. Wie kann ich alle Filter in Excel schnell entfernen? Du kannst alle Filter schnell entfernen, indem Du die Tabelle auswählst und die Tastenkombination ALT + D + F + F verwendest.

2. Was kann ich tun, wenn mein Makro nicht funktioniert? Überprüfe die Tabelle und stelle sicher, dass der Code in der richtigen Arbeitsmappe platziert ist. Achte auch darauf, dass die Datei im richtigen Format gespeichert ist (*.xlsm).

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige