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

Forumthread: vba, formatierte Tabelle/Filter setzen

vba, formatierte Tabelle/Filter setzen
19.08.2022 12:22:14
Fred
Hallo Excel Profis,
wohl kurze Frage;
Ich möchte in meiner formatierten Tabelle "live_daten", Sheet "Auswert1" in Spalte 159 einen Filter setzen mit möglichen Werten 1,3,4

Worksheets("Auswert1").ListObjects("live_daten").Range.AutoFilter _
Field:=159, _
Criteria1:="1", Operator:=xlOr, Criteria2:="3", Operator:=xlOr, Criteria3:="4", Operator:=xlFilterValues
Was stimmt hier nicht?
Gruss
Fred
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: vba, formatierte Tabelle/Filter setzen
19.08.2022 12:30:42
max.kaffl@gmx.de
Hallo Fred,
so:

    Worksheets("Auswert1").ListObjects("live_daten").Range.AutoFilter _
Field:=159, Criteria1:=Array("1", "3", "4"), Operator:=xlFilterValues
Gruß
Nepumuk
AW: vba, formatierte Tabelle/Filter setzen
19.08.2022 12:41:50
Fred
Danke Nepumuk, klappt bestens !!
Schönes Wochenende!
Gruss
Fred
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Filter in Excel mit VBA setzen und steuern


Schritt-für-Schritt-Anleitung

Um einen Filter in einer formatierten Tabelle in Excel mit VBA zu setzen, folge diesen Schritten:

  1. Öffne das VBA-Editor-Fenster: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke im Projekt-Explorer mit der rechten Maustaste auf dein Projekt und wähle Einfügen > Modul.

  3. Gib den folgenden Code ein:

    Sub FilterSetzen()
       Worksheets("Auswert1").ListObjects("live_daten").Range.AutoFilter _
           Field:=159, Criteria1:=Array("1", "3", "4"), Operator:=xlFilterValues
    End Sub
  4. Führe das Makro aus: Drücke F5 oder klicke auf Run, um das Makro auszuführen und den Filter zu setzen.

Dieser Code filtert die Spalte 159 in der Tabelle live_daten auf die Werte 1, 3 und 4.


Häufige Fehler und Lösungen

  • Problem: Der Filter wird nicht gesetzt.

    • Lösung: Überprüfe, ob der Tabellenblattname und der Tabellenname korrekt sind. Du kannst auch sicherstellen, dass die Spalte 159 existiert.
  • Problem: Fehler beim Ausführen des Makros.

    • Lösung: Stelle sicher, dass xlFilterValues korrekt verwendet wird, und dass die Werte als Array übergeben werden.

Alternative Methoden

Wenn du keinen VBA-Code verwenden möchtest, kannst du auch manuell einen Filter in Excel setzen:

  1. Wähle die Tabelle aus.
  2. Gehe zum Menü Daten.
  3. Klicke auf Filter einfügen.
  4. Wähle die gewünschte Spalte aus und setze den Filter über die Dropdown-Liste.

Außerdem kannst du mit Excel Filter aus anderem Tabellenblatt steuern, indem du die Datenverbindung oder Datenüberprüfung nutzt.


Praktische Beispiele

Hier sind einige praktische Beispiele, um den Filter zu setzen:

  1. Filter für mehrere Kriterien:

    Sub MehrereKriterienFilter()
       Worksheets("Auswert1").ListObjects("live_daten").Range.AutoFilter _
           Field:=159, Criteria1:=Array("1", "3", "4"), Operator:=xlFilterValues
    End Sub
  2. Filter aufheben:

    Sub FilterAufheben()
       Worksheets("Auswert1").ListObjects("live_daten").AutoFilter.ShowAllData
    End Sub

Diese Beispiele zeigen, wie du den Excel Filter einfügen und auch aufheben kannst.


Tipps für Profis

  • Nutze vba tabelle filtern, um dynamische Filter zu erstellen, die auf Benutzerinteraktionen reagieren.
  • Erstelle ein Excel Makro, das die Filterbedingungen basierend auf Benutzereingaben ändert.
  • Verwende filter erweitern excel, um komplexere Datenanalysen durchzuführen.

Mit diesen Tipps kannst du deine Fähigkeiten im Umgang mit Excel VBA Filtern erheblich erweitern.


FAQ: Häufige Fragen

1. Wie kann ich einen Filter auf mehrere Spalten anwenden?
Du kannst den AutoFilter-Befehl für jede Spalte verwenden, indem du ihn mehrfach in deinem VBA-Code einfügst.

2. Was ist der Unterschied zwischen Criteria1 und Criteria2?
Criteria1 ist das Hauptkriterium, während Criteria2 für zusätzliche Bedingungen verwendet wird. Bei mehreren Kriterien ist es besser, ein Array zu verwenden.

3. Wie hebe ich alle Filter in einer Tabelle auf?
Verwende den Befehl ShowAllData, um alle Filter in einer formatierten Tabelle aufzuheben.

4. Kann ich den Filter in einem anderen Tabellenblatt setzen?
Ja, du kannst den Filter auf eine Tabelle in einem anderen Tabellenblatt steuern, indem du den entsprechenden Blattnamen im VBA-Code angibst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige