Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob nach einer Spalte gefiltert

Prüfen ob nach einer Spalte gefiltert
31.08.2022 19:37:32
Newcomer
Hallo zusammen,
habe im Forum schon einiges gefunden, leider scheitere ich gerade an der Umsetzung einer Lösung, welche für ein "normales Excelblatt" bereits unter
https://www.herber.de/forum/archiv/1228to1232/1228598_Pruefen_ob_nach_einer_Spalte_gefiltert_wurde.html
von Josef Ehrensberger 2011 veröffentlicht wurde.
Ich habe eine intelligente Tabelle auf Worksheet mit Tabellennamen "Termine ASI", in der eine intelligente Tabelle mit Bezeichnung "ASI Termin Matrix" enthalten ist. Über den Header der intelligenten Tabelle lasse ich eine Schleife über alle Spalten laufen. Mit dem Befehl
If Not (Range("Header_Filter_Show").Cells(i).value) Then _
Worksheets("Termine ASI").Range("ASI_Termin_Matrix[#Headers]").AutoFilter _
Field:=i, _
VisibleDropDown:=False
blende ich in manchen Spalten die Filtersymbole aus. Definiert, ob ausblenden oder nicht, ist im Range("Header_Filter_Show") hinterlegt.
Jetzt versuche ich verzweifelt, dieselbe Lösung von oben aber für eine "intelligente Tabelle" umzuschreiben. Scheitere kläglich.
Hoffe, es kann mir jemand weiterhelfen.
Gruß von Newcomer

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob nach einer Spalte gefiltert
01.09.2022 07:21:31
Oberschlumpf
Moin,
zeig doch bitte mal per Upload eine Excel-Bsp-Datei mit Bsp-Daten und teilweise ausgeblendeten Filtersymbolen und mit deinem Code.
Ciao
Thorsten
AW: Prüfen ob nach einer Spalte gefiltert
01.09.2022 08:49:37
Newcomer
Hallo zusammen, hallo Thorsten,
unter dem Link
https://www.herber.de/bbs/user/154915.xlsm
habe ich meine Datei hochgeladen. In Spalte F gibt es 2 Symbole mit Makro. Erläuterungen, wenn man mit der Maus in den orangen Rahmen fährt.
Die Filtersymbole lassen sich natürlich ein Tabellentools\Entwurf\"Schaltfläche Filter" jederzeit wieder einblenden.
In https://www.herber.de/forum/archiv/1228to1232/1228598_Pruefen_ob_nach_einer_Spalte_gefiltert_wurde.html
lautet die Abfrage
For Each objFilter In .AutoFilter.Filters
If objFilter.On Then ....
und das Pendant für die Abfrage suche ich für die intelligente Tabelle.
Gruß von Newcomer
Anzeige
sorry, weiß leider auch keine Lösung
01.09.2022 09:16:17
Oberschlumpf
Hi,
danke für die Bsp-Datei - aber helfen kann ich nicht - liegt nicht an der Datei, sondern an meiner Unwissenheit :-)
Bin sicher, wer anders wird bestimmt helfen können!
Ciao
Thorsten
ShowAutoFilter = True
01.09.2022 10:52:29
Yal
Hallo New (man spricht sich hier mit Vorname an ;-)
Du musst zuerst das ListObject-Eigenschaft ShowAutoFilter einschalten. Dann kannst Du auf die gewünschte Information zugreifen:

Sub checkFilter()
Dim F As Filter
Dim msg As String
Dim i
With ThisWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1")
.ShowAutoFilter = True
For Each F In .AutoFilter.Filters
i = i + 1
If F.On Then msg = msg & vbCr & "Feld " & i & """" & .HeaderRowRange.Cells(i) & """: " & F.Criteria1
Next
End With
If msg  "" Then MsgBox "Gefiltert auf: " & vbCr & msg
End Sub
VG
Yal
Anzeige
AW: ShowAutoFilter = True
02.09.2022 10:52:45
Newcomer
Hallo zusammen,
Super schnell die Schwarmintelligenz!
@Thorsten - danke trotzdem für deine Mühe
@ Yal - danke.
Ist was ich benötige. Wäre selbst nie drauf gekommen.
Eine Anmerkung noch: Mit der Anweisung
msg=msg & xxxx & F.Criteria1
für die Generierung der Ergebnisausgabe kommt bei mir Laufzeitfehler '13': Typen unverträglich, wenn mehr als drei Filterkriterien gesetzt wurden. Da es ich aber nicht benötige, ist es die Lösung für mich.
VG New -;)
Noch offen? Eher versehen, oder. owT
03.09.2022 22:00:15
Yal

301 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
4
7
4
4
2
2
1
25
4
2
1
2
5
33
9
5
1
4
3
4
2
1
3