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

Combobox mit gefilterten Inhalt

Forumthread: Combobox mit gefilterten Inhalt

Combobox mit gefilterten Inhalt
30.12.2018 13:45:31
Erich
Hallo zusammen!
Bin die letzen Tage schon auf der Suche nach eine Lösung; leider bisher nicht zufriedenstellend. (nur etwas komplizierte 2013 Lösung gefunden, welche ich unter 2016 nicht zum laufen bekomme)
Habe eine Haupttabelle (MAIN) mit entsprechenden Dateninhalt. Möchte nun hier 2 CB nutzen und weitere Filter nicht zulassen.(Autofilterzeile wird ausgeblendet)
Wenn ich in der der ersten CB eine Auswahl treffe möchte ich in der zweiten dann nur
noch die gliederten Daten zur Auswahl haben.
Wie gesagt wenn ich das über den Autofilter machen besteht hier die Funktionalität
Habt ihr hier vielleicht ein Beispiel parat welche ich nachbauen könne?
VG
Erich
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Combobox mit gefilterten Inhalt
30.12.2018 13:55:18
Erich
Hallo - habe nun auch ein File mit der gewünschten Lösung hochgeladen.
Vielleicht kann mir hier wer helfen
https://www.herber.de/bbs/user/126401.xlsm
Und wo sind die Inhalte in der 1. ComboBox?
30.12.2018 15:08:40
Beverly
Hi Erich,
was meinst du mit "gewünschte Lösung"? Die 1. ComboBox ist bei dir leer - soll sie mit den Inhalten der Spalte F gefüllt werden, dabei jeden Inhlat nur einmalig?

Anzeige
AW: Und wo sind die Inhalte in der 1. ComboBox?
30.12.2018 16:53:29
Erich
Ja in der ersten Combo soll der Inhalt (ohne Duplikate) der Spalte F enthalten sein.
In der 2ten dann die gefilterten aus Spalte G
Danke!
AW: Und wo sind die Inhalte in der 1. ComboBox?
30.12.2018 16:53:30
Erich
Ja in der ersten Combo soll der Inhalt (ohne Duplikate) der Spalte F enthalten sein.
In der 2ten dann die gefilterten aus Spalte G
Danke!
Anzeige
Lösungsvorschlag
30.12.2018 18:02:33
Beverly
code unter DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_Open()
Dim objDic As Object
Dim varBereich As Variant
Dim lngZaehler As Long
Dim arrDaten As Variant
Set objDic = CreateObject("Scripting.Dictionary")
With Worksheets("DATA")
If .FilterMode Then .ShowAllData
varBereich = .ListObjects("tblData").DataBodyRange.Columns(6)
For lngZaehler = LBound(varBereich) To UBound(varBereich)
objDic(varBereich(lngZaehler, 1)) = 0
Next
arrDaten = objDic.keys
Worksheets("MAIN").CB_CLT.List = WorksheetFunction.Transpose(arrDaten)
End With
Set objDic = Nothing
End Sub
Code im Codemodul des Tabellenblattes MAIN:
Option Explicit
Private Sub CB_CLT_Change()
Dim objDic As Object
Dim varBereich As Variant
Dim lngZaehler As Long
Dim arrDaten As Variant
If CB_CLT.ListIndex  -1 Then
Set objDic = CreateObject("Scripting.Dictionary")
With Worksheets("DATA")
If .FilterMode Then .ShowAllData
.ListObjects("tblData").Range.AutoFilter Field:=6, Criteria1:=CB_CLT
varBereich = .ListObjects("tblData").DataBodyRange.Columns(7).SpecialCells( _
xlCellTypeVisible)
For lngZaehler = LBound(varBereich) To UBound(varBereich)
objDic(varBereich(lngZaehler, 1)) = 0
Next
.ListObjects("tblData").Range.AutoFilter Field:=6
End With
arrDaten = objDic.keys
Worksheets("MAIN").CB_LT.List = WorksheetFunction.Transpose(arrDaten)
Set objDic = Nothing
End If
End Sub

Anzeige
AW: Lösungsvorschlag
31.12.2018 09:13:38
Erich
Danke Karin - Auswahl funktioniert nun wie gewünscht.
Wie bring ich das nun diese in den Autofilter resp.setze am besten zurück.
Danke
Erich
Soll bei Auswahl beider ComboBoxen...
31.12.2018 11:00:07
Beverly
...die Filterung der Spalten F und G erhalten bleiben? Dann ändere den Code wie folgt
Private Sub CB_CLT_Change()
Dim objDic As Object
Dim varBereich As Variant
Dim lngZaehler As Long
Dim arrDaten As Variant
CB_LT.ListIndex = -1
If CB_CLT.ListIndex  -1 Then
Set objDic = CreateObject("Scripting.Dictionary")
With Worksheets("DATA")
If .FilterMode Then .ShowAllData
.ListObjects("tblData").Range.AutoFilter Field:=6, Criteria1:=CB_CLT
varBereich = .ListObjects("tblData").DataBodyRange.Columns(7).SpecialCells( _
xlCellTypeVisible)
For lngZaehler = LBound(varBereich) To UBound(varBereich)
objDic(varBereich(lngZaehler, 1)) = 0
Next
End With
arrDaten = objDic.keys
Worksheets("MAIN").CB_LT.List = WorksheetFunction.Transpose(arrDaten)
Set objDic = Nothing
Else
Worksheets("DATA").ListObjects("tblData").Range.AutoFilter Field:=6
End If
End Sub

und ergänze außerdem die folgende Prozedur:
Private Sub CB_LT_Change()
If CB_LT.ListIndex  -1 Then
Worksheets("DATA").ListObjects("tblData").Range.AutoFilter Field:=7, Criteria1:=CB_LT
Else
Worksheets("DATA").ListObjects("tblData").Range.AutoFilter Field:=7
End If
End Sub


Anzeige

Forumthreads zu verwandten Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Anzeige
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCoun...
17.01.2009 17:30:00
Thread-ID: 1040940
2 Beiträge
Anzeige
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich bin mir nicht sicher, ob es richtig ist, dass ich einen neuen Thread aufmache, weil ich diese Frage schon für ein anderes Makro gestellt habe.
Jetzt komme ich an einer anderen Stelle nicht weiter. Auch mit dem folgenden Mako lese ich Daten aus einer Tabelle "Artikel" in eine...
18.01.2009 00:30:47
Thread-ID: 1041031
6 Beiträge
gefilterte Daten aus Listbox einlesen
Larissa

Hallo,
jetzt stecke ich wieder fest in meinem Userform.
Dank Eurer Hilfe habe ich jetzt geschafft, in der Listbox gefilterte Daten anzuzeigen.
Wenn man jetzt auf eine Eintragung in der Listbox klickt, sollen die Daten in Textfelder eingetragen werden.
Wenn die Daten nicht gefilt...
18.01.2009 19:19:00
Thread-ID: 1041237
11 Beiträge
Anzeige
ZÄHLENWENN mit gefilterten Daten
Wolfango

Hallo Experten,
folgendes:
In einer Spalte stehen Datumswerte. Diese Datumswerte werden mit folgender Formel ausgewertet:
ZÄHLENWENN(H9:H233;"<"&HEUTE()-29)
Das führt auch wunderbar zum gewünschten Resultat.
Ich möchte nun in der gleichen Spalte über den Autofilter...
30.01.2009 13:04:18
Thread-ID: 1045371
2 Beiträge
Selektieren gefilterter Datensätze, wie?
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
wenn ich mit dem Auto-Filter, z.B. manuell, aus einer Menge von Datensätzen einen Teil herausgefiltert
habe und dann einen Teil der nach dem Filtern verbliebenen Zeilen markiere und kopieren will,
kopiert Excel offenbar immer die durch...
01.02.2009 09:32:39
Thread-ID: 1045837
5 Beiträge
Anzeige
Daten in gefilterten Bereich Kopieren
Sebastian

Hallo Forum,
vielleicht kann mir jemand bei meinem Problem helfen. Google konnte es nicht. :(
Ich habe ein Tabellenblatt mit gefilterten Daten. Nun möchte ich von einem anderen Tabellenblatt Daten neben die gefilterten, noch sichtbaren Daten kopieren. Excel lässt das leider nicht zu.
03.02.2009 15:19:09
Thread-ID: 1046691
2 Beiträge
ZÄHLENWENN mit gefilterten Daten?
Thomas

Hallo,
ich habe ein Problem. Ich habe ein Datenblatt mit 7 Spalten an Daten und um Häufigkeiten einzelner Daten in bestimmten Zeiträumen auszurechnen brauche ich die "ZÄHLENWENN" Funktion. Leider rechnet die mit allen Tabellendaten und nicht wie ich gehofft habe, nur mit den gefilterten Dat...
26.02.2009 15:47:33
Thread-ID: 1054438
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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