Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter über VBA auf "Alle" setzen

Forumthread: Filter über VBA auf "Alle" setzen

Filter über VBA auf "Alle" setzen
29.05.2007 15:02:00
Jens
Hallo,
ich habe ein Problem, und zwar möchte ich über ein VBA Makro die Autofilter Funktion auf "Alle" setzen (Nicht den Autofilter Abschalten). Gibt es über VBA hier ein Möglichkeit?
ich habe da mal etwas aufgezeichnet:

Sub Makro1()
Selection.AutoFilter Field:=5
End Sub


über dieses VBA wird aber nur der filter in Reihe 5 aufgelöst, ist der Filter allerdings in Reihe 4, 3, oder einer beliebigen gesetzt funktioniert diese funktion nicht mehr.
D.h. ich möchte sämtliche Filtermöglichkeiten im Tabellenblatt auf "Alle"setzen.
Sollte ich irgendwelche Fragen offen gelassen haben, will ich diese gerne noch ergänzen.
Danke für Euere Hilfe.
Gruß Jens

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Filter über VBA auf "Alle" setzen
29.05.2007 15:06:00
Hajo_Zi
Hallo Jens,

Sub AlleFilterEntfernen()
With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, "   Filter deaktiviert"
End If
End With
End Sub



Anzeige
AW: Filter über VBA auf "Alle" setzen
29.05.2007 15:24:43
Jens
Hallo Hajo,
super genial, vielen vielen Dank, funktioniert hervorragend.
Danke und Gruß
Jens
;

Forumthreads zu verwandten Themen

Autofilter via VBA wieder auf "ALLE" setzen
Patrick

Hallo Excel-VBA-Gemeinde,
ich habe ein kleines Problem mit Filtern.
Kann man den Filter wieder auf "Alle" setzen via VBA
Ich habe eine ComboBox (Alle, A, B) mit der ich filter
If .ComboBox1.Text = "A" Then
Selection.AutoFilter Field:=1, Criteria1:="A", Operator:=xlAnd
En...
24.10.2008 13:05:00
Thread-ID: 1018976
3 Beiträge
Autofilter mit VBA
Steffan

Hallo ihr Lieben,
ich hab ein Problem mit einer Filter Routine. In einer Mitgliederliste soll Excel beim Aufruf der Datei überprüfen, ob Mitglieder ihr Austrittsdatum erreicht haben. In Spalte I stehen diese Daten im Format 31.12.2008.
Aus dem Archiv hab ich mir folgenden Code herausges...
12.01.2009 19:15:39
Thread-ID: 1038988
4 Beiträge
Autofilter per VBA aufrufen
Armin

Hallo,
ich habe folgendes Problem mit VBA.
Ich habe in einer Liste den Autofilter eingebunden. Per VBA selektiere ich Daten nach Datumswerten mit folgendem Code:
Zunächst lese ich das in Zelle A1 vorhandene Datum "01.01.2009" aus und lege dieses in der Variable "datVon" ab. Diese Va...
21.01.2009 15:45:00
Thread-ID: 1042249
4 Beiträge
erste Zeile des Autofilters per VBA erkennen
Ptonka

Hallo zusammen,
ich stehe vor folgendem Problem:
Ich filtere per VBA per Autofilter eine umfangreiche Liste.
Je nach dem, welches Filterkriterium ich mitgebe, ist die erste angezeigte Zeile
eine andere Zeilennummer - logisch.
Nun möchte ich diese erste angezeigte Zeilennumme...
07.05.2009 13:31:01
Thread-ID: 1073590
5 Beiträge
Anzeige
Problem mit Autofilter über VBA
Antsche


Wunderschönen guten Tag,
ich habe ein Problem bei der Nutzung des Autofilters über VBA.
In meinem Excel-File gibt es Tabellenblätter in denen Datensätze hinterlegt sind. Diese sollen über Eingaben in eine UserForm (ComboBoxen) gefiltert werden. Hier die Datei dazu:
https://www...
18.06.2009 16:53:36
Thread-ID: 1082687
4 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Anzeige
Autofilter Doppelnennungen filtern über VBA
Emil

Hallo zusammen,
ich habe folgendes Problem innerhalb eines größeren Makros:
Ich habe eine Tabelle aus der ich mittels eines Makros Werte in ein Diagramm übertrage.
Hierzu werden schon Spalten über den Autofilter nach bestimmten Auswahlkriterien gefiltert, das funktioniert alles wund...
03.09.2009 17:33:39
Thread-ID: 1100285
2 Beiträge
Blattschutz - Zugriff auf Autofilter -VBA-
Wolfgang

Hallo,
mit nachstehendem Code wird in allen Tabellenblättern der Blattschutz eingeschaltet. Nun mußte ich feststellen, dass AutoFilter sich nicht bedienen lässt, so dass ich hierzu die nachstehende Ergänzung eingebaut habe. Allerdings ohne Erfolg, es tut sich nichts.- Wie müßte ich den Cod...
26.10.2009 19:52:57
Thread-ID: 1112334
5 Beiträge
Anzeige
Werte eingeben bei gesetzem Autofilter via VBA
Gegga

Mahlzeit...
Mal ne kleine Frage
Habe ne Liste, mit einem gesetzen Autofilter (Mehre Zeilenab zeile 6 sind eingeblendet, nicht nur eine, z.B 6,12,14,19,26,37). Nach Ausdruck dieser Liste soll in die eingeblendeten Zellen via UF das Druckdatum (textbox) und der Sachbearbeiter (Combobox)in...
29.01.2010 13:59:40
Thread-ID: 1134124
2 Beiträge
Anzeige
Autofilter, Zellinhalt, VBA
Bernd

Hallo Excelfreunde,
ich habe ein Problem mit dem Autofilter. Die Spalte F (siehe Beispieldatei) soll nach den Kriterien in den Zellen I1 und I2 gefiltert werden. Die Kriterien werden in der Originaldatei mittels Formeln ermitteln, weil sich diese auf bestimmte Selektionen (Jahr, Monat, Quar...
24.02.2010 17:51:17
Thread-ID: 1141199
3 Beiträge
Autofilter VBA
Snewi

Hallo,
Wie kann ich über eine Zelle verschiedene Werte nach Monat sortieren?
Datei:
Die Datei https://www.herber.de/bbs/user/68524.xls wurde aus Datenschutzgründen gelöscht
gruß
12.03.2010 11:11:14
Thread-ID: 1145343
9 Beiträge
Autofilter aus VBA liefert kein ergebnis
Karsten


Hallo liebe Forumsgemeinde,
ich habe ein Problem mit dem Autofilter, den ich mit folgendem Code "auslöse":
ActiveSheet.Activate
With ActiveSheet
.AutoFilterMode = False
.Range("A8:H8").AutoFilter
.Range("A8:H8").AutoFilter Field:=1, Criteria1:=">=" & Range("J...
20.03.2010 15:52:25
Thread-ID: 1147277
10 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Autofilter in Excel über VBA auf "Alle" setzen

Schritt-für-Schritt-Anleitung

Um den Autofilter in Excel über VBA auf "Alle" zu setzen, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne Excel und aktiviere die Entwicklertools. Falls Du die Entwicklertools noch nicht aktiviert hast, gehe zu den Excel-Optionen und aktiviere sie.

  2. Öffne den Visual Basic for Applications (VBA) Editor. Drücke ALT + F11, um den Editor zu öffnen.

  3. Füge ein neues Modul hinzu. Rechtsklicke auf "VBAProject (DeineDatei.xlsx)" und wähle "Einfügen" > "Modul".

  4. Füge den folgenden Code ein:

    Sub AlleFilterSetzen()
   With ActiveSheet
       If .FilterMode Then
           .ShowAllData
           MsgBox "Alle Filter wurden auf 'Alle' gesetzt!", vbOKOnly, "Filter angewendet"
       End If
   End With
End Sub

  5. Führe das Makro aus. Du kannst das Makro aus dem VBA-Editor heraus ausführen oder eine Schaltfläche in Excel erstellen, um das Makro einfacher zu starten.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Die Methode 'ShowAllData' kann nicht angewendet werden."

    • Lösung: Stelle sicher, dass ein Autofilter auf dem Arbeitsblatt aktiv ist. Wenn kein Filter gesetzt ist, tritt dieser Fehler auf.

  • Fehler: "Der Autofilter ist nicht aktiviert."

    • Lösung: Aktiviere den Autofilter manuell über das Menü: "Daten" > "Filter" > "Autofilter".

Alternative Methoden

Wenn Du den Autofilter nicht über VBA setzen möchtest, kannst Du auch manuell vorgehen:

  1. Öffne das Daten-Menü.
  2. Wähle den Autofilter aus.
  3. Klicke auf den Dropdown-Pfeil in der Spaltenüberschrift und wähle 'Alle' aus.

Diese Methode ist zwar nicht automatisiert, kann aber schnell für kleine Datenmengen genutzt werden.

Praktische Beispiele

Hier sind einige Beispiele, wie Du das VBA-Skript anpassen kannst:

  • Mehrere Spalten gleichzeitig zurücksetzen:

    Sub AlleFilterSetzen()
   Dim ws As Worksheet
   Set ws = ActiveSheet
   If ws.FilterMode Then
       ws.ShowAllData
       MsgBox "Alle Filter wurden auf 'Alle' gesetzt!", vbOKOnly, "Filter angewendet"
   End If
End Sub

  • Ein Makro, das spezifische Filter entfernt:

    Sub FilterEntfernen()
   Dim ws As Worksheet
   Set ws = ActiveSheet
   If ws.FilterMode Then
       ws.ShowAllData
       MsgBox "Die Filter wurden entfernt!", vbOKOnly, "Filter zurückgesetzt"
   End If
End Sub

Tipps für Profis

  • Verwende die AutoFilter-Methode: Du kannst den Autofilter direkt setzen, indem Du die AutoFilter-Methode verwendest, um spezifische Kriterien anzuwenden.

  • Automatisierung: Überlege, Deine Makros in der Arbeitsmappe zu speichern, damit Du sie bei Bedarf schnell aufrufen kannst.

  • Dokumentation: Kommentiere Deinen Code gut, um später schnell nachvollziehen zu können, was jede Zeile bewirkt.

FAQ: Häufige Fragen

1. Wie kann ich den Autofilter vollständig deaktivieren? Um den Autofilter zu deaktivieren, kannst Du den Befehl ActiveSheet.AutoFilterMode = False verwenden.

2. Kann ich mehrere Filter gleichzeitig setzen? Ja, Du kannst mehrere Filter in unterschiedlichen Spalten setzen, indem Du die Methode AutoFilter für jede Spalte aufrufst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige