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

Anzeige für gesetzte Filter

Forumthread: Anzeige für gesetzte Filter

Anzeige für gesetzte Filter
08.09.2016 08:18:54
klaus
Hallo zusammen,
habe eine Frage zu den Autofiltern. Habe schon mal ein wenig gestöbert, kann aber zu meinem spezifischen Problem noch keine Antwort finden...
Sachlage: wir arbeiten in einer vernetzten Tabelle gemeinsam. Es werden Autofilter gesetzt und - natürlich ;-) - wird damit auch abgespeichert. Dummerweise werden aber auch Filter in Spalten gesetzt, die danach ausgeblendet werden. Da das positiverweise nur selten passiert, ist die Gefahr negativerweise groß, daß es übersehen wird, WENN es dann doch mal passiert!
Meine Frage: kann ich in einer der Spalten, die nie ausgeblendet werden, einen Marker setzen (Zelle farbig formatiert, Meldung ausgeben o.ä.), der mir anzeigt, daß in einer der ausgeblendeten Spalten ein Filter aktiv ist?!
Bin im voraus dankbar!!!
Viele Grüße
Klaus
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeige für gesetzte Filter
08.09.2016 08:55:10
UweD
Hallo Klaus
Über ein Event könnte man das permanent abfragen.
z.B. über Worksheet_SelectionChange, oder Worksheet_Activate
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If FilterMode Then
Range("A1").Interior.Color = RGB(255, 0, 0)
Else
Range("A1").Interior.Color = xlNone
End If
End Sub
oder aber du setzt beim aktivieren der Tabelle alle Filter zurück.
Private Sub Worksheet_Activate()
If FilterMode Then ShowAllData ' Autofilter alle
End Sub
Gruß UweD
Anzeige
AW: Anzeige für gesetzte Filter
08.09.2016 09:19:45
klaus
Hallo Uwe,
das liest sich gut!
Ich würde das gern anzeigen lassen, wenn ich das richtig lese, kommt dann die erste Lösung in Frage.
Du sprichst von permanenter Abfrage, platziere ich das ganze dann wie ein Makro?
Besten Dank und Gruß
Klaus
AW: Anzeige für gesetzte Filter
08.09.2016 11:52:16
UweD
hi
solche Makros werden in der "Codebeich des Tabellenblattes" abgespeichert,
nicht in einem "normalen Modul"
das ginge so...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- dort den Code reinkopieren
Gruß UweD
Über Rückmeldungen würde ich mich freuen
Anzeige
AW: Anzeige für gesetzte Filter
08.09.2016 08:56:37
EtoPHG
Hallo Klaus,
Siehe Überprüfung ob eine Liste gefiltert ist.
Zudem werden die Zeilenummern in XL standardmässig blau, statt schwarz dargestellt, was einem aufmerksamen Benuzter genügend Hinweis geben sollte. Aber so sind die neuen Zeiten: Noch farbiger, bunter und den Anwender vom Denken und Handeln entbinden... ;-)
Gruess Hansueli
Anzeige
AW: Anzeige für gesetzte Filter
08.09.2016 09:17:16
klaus
Hallo Hansueli,
besten Dank für den Hinweis.
Und dann gibt es in diesen Zeiten ja auch noch die Benutzer, die
a) überhaupt keine Hemmungen haben, anderen Unaufmerksamkeit anzudichten
b) diesen unaufmerksamen Benutzern ihre eigene Schwarz/Weiß-Sicht mit auf den Weg geben wollen und
c) naives und interessiertes Nachfragen mit Denk- und Handlungsunwillen verwechseln
Schreckliche neue Zeiten, stimmt! ;-)
Gruß
Klaus
Anzeige
AW: Anzeige für gesetzte Filter
08.09.2016 11:54:01
klaus
wollte noch präzisieren:
Ich habe 27 Spalten (A-AA) und es wäre schön, der Autofilter, falls es wichtig ist, sitzt in Zeile 8 und es wäre schön, wenn bspw. die Zelle J7 rot markiert würde, wenn in einer oder mehrere der genannten (teilweise ausgeblendeten) Spalten der Autofilter eingeschaltet ist.
Habe Deine Lösung probiert einzubauen, Uwe, aber wahrscheinlich bin ich dazu einfach noch zu laienhaft unterwegs ;-)
Anzeige
AW: Anzeige für gesetzte Filter
08.09.2016 14:52:47
UweD
Hallo nochmal
Annahmen.
- Du befindest dich in Tabellenblatt2
- mache einen Rechstclick auf den Tabellenblattreiter von Tabelle2
- Code anzeigen
- Diesen Code dort reinkopieren

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If FilterMode Then
Range("J7").Interior.Color = RGB(255, 0, 0)
Else
Range("J7").Interior.Color = xlNone
End If
End Sub
sieht dann so aus.
Userbild
wenn du nun in Tabelle2 eine andere Zelle markierst, wird geprüft, ob irgendeine Spalte gefiltert ist
Dann wird J7 rot gefärbt.
Gruß UweD
Über Rückmeldungen würde ich mich freuen
Anzeige
AW: Anzeige für gesetzte Filter
09.09.2016 08:49:59
klaus
Super, Uwe!!
Funktioniert, besten Dank!!!
Gruß
Klaus
Danke für die Rückmeldung owT
09.09.2016 09:33:39
UweD
;

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Autofilter - "Enthält" in Zelle
daniel

Hallo Forum.
ich habe eine Tabelle, in A1 die Artikelnummer und in B1 die Artikelbezeichnung (3000 Zeilen)
Der Autofilter funktioniert mit "Benutzerdefiniert" und "enthält" recht gut...
nur würde ich gerne eine Zelle als Suchkriterium nutzen.
Bsp. Wenn ich in C3 nun das Wort Far...
07.11.2008 11:21:00
Thread-ID: 1022589
2 Beiträge
Anzeige
Wert vom ausgewählten Filter in Zelle
Kurt

Hallo nochmal,
ich möchte gern den Wert vom Filter in die Zelle N1 setzen.
Hatte dies
Selection.AutoFilter Field:=4, Criteria1:=wert
ActiveSheet.Range("N1").Select = wert
mfg Kurt P
01.12.2008 15:41:00
Thread-ID: 1029285
3 Beiträge
Autofilter Ein - Wert in Zelle
Lutz

Hallo,
ich möchte gern den mit Autofilter selektierten Wert in einer separaten Zelle anzeigen lassen.
Nach Möglichkeit ohne Makro.
Ich habe im Archiv keine passende Anregung gefunden.
Beispieldatei
https://www.herber.de/bbs/user/59331.xls
Danke für die Hilfe,
Lutz <...
10.02.2009 23:01:45
Thread-ID: 1049393
3 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Zelleneinträge in Filterauswahl
Leitz

Hallo!
Komme mit dem Einfügen von Werten aus VBA Speicher in Filterauswahl nicht zurecht.
Selection.AutoFilter Field:=12, Criteria1:=""
Nun möchte ich in die Zellen der Spalte D den Speicherinhalt von "strBearbeiter" einfügen
Wie lautet der Code, so dass nur die gefilterten Zei...
10.03.2009 08:28:50
Thread-ID: 1058462
5 Beiträge
gefilterte Zeilen aus TB1 in TB2 anzeigen lassen
Kellerkind42

Hallo.
Ich filtere in Tabelle1, ab Zeile 6 Daten.
Wie kann ich mir per Formel die gefilterten Daten in Tabelle2 anzeigen lassen?
Gruß Reinhardt.
19.03.2009 12:40:16
Thread-ID: 1061805
2 Beiträge
Anzeige
Hyperlink Ziel Zelle farbig anzeigen!
Wolfgang

Hallo,
benutze Hyperlinks um mich im Dokument zu bewegen.
Frage wenn ich nun zu Blatt 1 nach A32 springe, kann ich dann A32 farbig anzeigen lassen, und geht dann die Farbe wieder weg?
Vielen Recht herzlichen Dank für Eure Mühe.
Wolfgang
26.03.2009 08:30:54
Thread-ID: 1064093
5 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Tabellenblattname in Zelle A1 anzeigen
Stefanglander

Hallo Forum,
ich habe hie reinen Code-Schnipsel den ich gerne umändern möchte aber mal wieder nicht weiß wie.
Im Moment wird der Tabellenname in der aktiven Zelle beim betätigen der Button angezeigt.
Wie muss ich den Code ändern, dass er in der Zelle B3 angezeigt wird ?
Sub TabN...
14.07.2009 13:33:41
Thread-ID: 1088475
3 Beiträge
Anzeige
Filterbedingungen in extra Zelle anzeigen
raphael

Dear all,
Ich habe eine Frage!
wie kann ich die Bedingung eines Autofilters in einer Extra Zelle darstellen?
Ich habe in B4:K4 einen Autofilter drin,
und ich möchte in B3:K3 die Bedingungen angezeigt bekommen.
Also ob das eine Custom/Top10/all oder halt einer meiner Auswahl...
18.09.2009 17:54:26
Thread-ID: 1103959
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Aktive Filter in Excel anzeigen und verwalten

Schritt-für-Schritt-Anleitung

Um aktive Filter in Excel anzuzeigen, kannst du VBA verwenden. Diese Anleitung zeigt dir, wie du einen Marker in einer Zelle setzen kannst, wenn ein Filter aktiv ist:

  1. Öffne die Excel-Datei, in der du das Skript verwenden möchtest.

  2. Rechtsklicke auf den Tab des Arbeitsblatts, in dem du die Anzeige für gesetzte Filter implementieren möchtest.

  3. Wähle "Code anzeigen" aus dem Kontextmenü.

  4. Füge den folgenden VBA-Code ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If FilterMode Then
       Range("J7").Interior.Color = RGB(255, 0, 0) ' Zelle J7 rot markieren
   Else
       Range("J7").Interior.Color = xlNone ' Zelle zurücksetzen
   End If
End Sub

  5. Speichere die Datei als Excel-Arbeitsmappe mit Makros (*.xlsm).

  6. Teste die Funktion, indem du zwischen den Zellen wechselst und einen Filter aktivierst. Die Zelle J7 sollte rot eingefärbt werden, wenn ein Filter aktiv ist.

Häufige Fehler und Lösungen

  • Fehler: Der Code wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass der Code im "Codebereich des Tabellenblattes" und nicht in einem normalen Modul gespeichert ist.

  • Fehler: Die Zelle wird nicht rot markiert.

    • Lösung: Überprüfe, ob du das richtige Arbeitsblatt ausgewählt hast und das Filter tatsächlich aktiv ist.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, um die Excel aktiven Filter anzuzeigen:

  • Verwendung von Formeln: Du kannst auch die Funktion SUBTOTAL verwenden, um zu überprüfen, ob Zeilen gefiltert sind.
  • Bedingte Formatierung: Setze eine bedingte Formatierung, die die Zelle einfärbt, wenn ein Filter aktiv ist.

Praktische Beispiele

Hier sind einige Anwendungsbeispiele für die Anzeige aktiver Filter:

  1. Anzeige der Filterauswahl in einer Zelle:

    • Du kannst den aktiven Filtertext in eine Zelle schreiben, um die Excel Filterauswahl in Zelle anzeigen zu lassen.
    Range("K7").Value = ActiveSheet.FilterMode

  2. Permanent Filter einblenden:

    • Wenn du sicherstellen möchtest, dass alle Filter dauerhaft sichtbar sind, kannst du einen Button einfügen, der alle Filter zurücksetzt.
    Sub ResetFilters()
   If ActiveSheet.FilterMode Then
       ActiveSheet.ShowAllData
   End If
End Sub

Tipps für Profis

  • Verwende benutzerdefinierte VBA-Funktionen, um flexiblere Bedingungen zu schaffen, wenn du mit Excel VBA Autofilter arbeitest.
  • Dokumentiere deinen Code gut, damit andere Anwender oder du selbst später nachvollziehen kannst, wie die Logik funktioniert.
  • Teste deine Makros regelmäßig, um sicherzustellen, dass sie in verschiedenen Szenarien funktionieren.

FAQ: Häufige Fragen

1. Wie kann ich die Filter in Excel dauerhaft anzeigen? Um die Filter dauerhaft anzuzeigen, kannst du ein Makro verwenden, das alle Filter zurücksetzt, wenn das Arbeitsblatt aktiviert wird.

2. Was passiert, wenn ich die Datei ohne Makros speichere? Wenn du die Datei im .xlsx-Format speicherst, werden alle Makros entfernt. Du musst die Datei als .xlsm speichern, um die Makros zu behalten.

Beliebteste Forumthreads (12 Monate)

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