Gewähltes Filterkriterium in Excel ausgeben
Schritt-für-Schritt-Anleitung
Um die gewählte Filterauswahl in einer Zelle anzuzeigen, kannst Du die folgende benutzerdefinierte Funktion verwenden. Folge diesen Schritten:
-
Öffne den VBA-Editor:
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf "VBAProject (DeinDateiname)" und wähle
Einfügen > Modul.
-
Füge den Code ein:
- Kopiere den folgenden VBA-Code in das neue Modul:
Function FilterKriterien(rng As Range) As String
Dim Filter As String
Filter = ""
On Error GoTo Finish
With rng.Parent.AutoFilter
If Intersect(rng, .Range) Is Nothing Then GoTo Finish
With .Filters(rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " UND " & .Criteria2
Case xlOr
Filter = Filter & " ODER " & .Criteria2
End Select
End With
End With
Finish:
FilterKriterien = Filter
End Function
-
Verwende die Funktion in Excel:
- Gehe zurück zu Deinem Excel-Blatt.
- In einer Zelle kannst Du nun die Funktion so aufrufen:
=FilterKriterien(A1), wobei A1 die Zelle ist, in der der Filter gesetzt wurde.
Häufige Fehler und Lösungen
-
Fehler: "Komponente nicht gefunden"
- Stelle sicher, dass das AutoFilter-Feature in Deiner Excel-Tabelle aktiviert ist.
-
Funktion gibt nichts zurück
- Überprüfe, ob der Filter tatsächlich aktiv ist. Wenn der Filter deaktiviert ist, wird keine Auswahl angezeigt.
-
Funktion funktioniert nicht in Excel Online
- Diese Funktion ist nur in der Desktop-Version von Excel verfügbar.
Alternative Methoden
Wenn Du keine VBA-Funktion verwenden möchtest, kannst Du auch den Excel-Datenschnitt verwenden:
- Füge einen Datenschnitt zu Deiner Tabelle hinzu.
- Wähle die gewünschte Filterauswahl im Datenschnitt.
- Die aktive Filterauswahl wird an der Stelle angezeigt, wo Du den Datenschnitt platziert hast.
Alternativ kannst Du auch die Funktion =TEXTVERKETTEN() nutzen, um mehrere Filterkriterien in einer Zelle zusammenzufassen, falls Du mit den neuesten Excel-Versionen arbeitest.
Praktische Beispiele
-
Beispiel für eine einfache Filterauswahl:
- Wenn Du einen Excel-Filter auf die Spalte "Monat" anwendest und "Januar" auswählst, zeigt die Funktion
=FilterKriterien(A1) in einer Zelle an: Januar.
-
Beispiel für mehrere Kriterien:
- Wenn Du mehrere Filter (z.B. "Januar" und "Februar") anwendest, zeigt die Funktion
=FilterKriterien(A1): Januar UND Februar.
Tipps für Profis
-
Nutze benannte Bereiche: Um die Lesbarkeit und Wartbarkeit des Codes zu verbessern, kannst Du benannte Bereiche in Excel verwenden.
-
Erweiterte Filterkriterien: Experimentiere mit komplexeren Filterkriterien in Deiner VBA-Funktion, um spezifischere Daten auszulesen.
-
Automatisierung: Kombiniere diese Funktion mit anderen Makros, um automatisierte Berichte zu erstellen, die selektive Daten anzeigen.
FAQ: Häufige Fragen
1. Wie kann ich die Filterkriterien in einer anderen Zelle anzeigen?
Du kannst die Funktion =FilterKriterien(ZielZelle) in jeder Zelle verwenden, um die aktiven Filterkriterien anzuzeigen.
2. Funktioniert dies in allen Excel-Versionen?
Die VBA-Funktion funktioniert nur in der Desktop-Version von Excel. In Excel Online sind Makros nicht unterstützt.
3. Kann ich die Funktion anpassen?
Ja, Du kannst die VBA-Funktion anpassen, um weitere Filterbedingungen hinzuzufügen oder das Format der Ausgabe zu ändern.