Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Vorschläge anzeigen

gefilterte Vorschläge anzeigen
17.02.2016 14:27:33
Meiky
Hallo liebes Forum,
ich bin gerade dabei eine Such/Filterfunktion zu basteln. Hierbei geht es darum, nach einer bestimmten Branche entweder nach Name und nach zugehöriger Nummer zu suchen.
Ich stelle mir das so vor, dass man in der Userform nach einem Schlagwort sucht z.B. "BAU" und alle Branchen die etwas mit "BAU" zu tun haben, im Tabellenblatt aufgelistet sind.
Ich bin schon fleißig am basteln und herumexperimentieren und habe jetzt eine Option gebaut, bei der ich alle zum Schlagwort passenden Branchen (leider) in der Userform aufgezeigt bekomme und dann EINE auswählen kann. Gerne hätte ich die Möglichkeit alle im Tabellenblatt anzuzeigen, so dass ich mich nicht auf eine festlegen muss.
Habt ihr hierzu vielleicht eine Idee. Ich komme leider nicht weiter.:/
Anbei meine Datei. Über Vorschläge bin ich euch dankbar.
https://www.herber.de/bbs/user/103636.xlsm
Liebe Grüße
Meiky

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefilterte Vorschläge anzeigen
17.02.2016 14:49:06
ChrisL
Hi Meiky
Ohne den Code jetzt komplett umzuschreiben, hier ein Vorschlag:
Sub Test()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Sp As String, iZeile As Integer
Dim i As Integer
Dim x As Integer
Application.ScreenUpdating = False
Set WS2 = Worksheets("RKZ_WKZ")
Set WS1 = Worksheets("Suche")
x = 0
cmbWKZ.Clear
WS1.Rows("3:1000").Delete
For i = 2 To 1000
If optText = True Then
Sp = "D"
ElseIf optWNR = True Then
Sp = "C"
End If
If Len(UCase(WS2.Range("D" & i).Value)) > 0 Then
If InStr(1, UCase(WS2.Range(Sp & i).Value), UCase(txtSuch)) Then
cmbWKZ.AddItem WS2.Range("a" & i).Value, x
cmbWKZ.List(x, 1) = WS2.Range("d" & i).Value
x = x + 1
WS1.Cells(x + 2, 2) = WS2.Cells(i, 1)
WS1.Cells(x + 2, 3) = WS2.Cells(i, 4)
End If
Else
GoTo ENDE
End If
Next
ENDE:
If cmbWKZ.ListCount = 1 Then
cmbWKZ.Enabled = True
cmbWKZ.ListIndex = 0
ElseIf cmbWKZ.ListCount > 1 Then
cmbWKZ.Enabled = True
cmbWKZ.DropDown
End If
Application.ScreenUpdating = True
End Sub

cu
Chris

Anzeige
AW: gefilterte Vorschläge anzeigen
17.02.2016 15:28:25
Meiky
Super. Vielen lieben Dank =) Genauso hatte ich es mir vorgestellt.
Mir ist gerade erst noch aufgefallen, dass gar nicht die passende Nummer zu der Branchenart gezogen wird. Sondern irgendwie eine andere Nummer... Hast du hier noch eine Idee, woran das liegen könnte?
Danke für deine Hilfe :)
Grüßle

AW: gefilterte Vorschläge anzeigen
17.02.2016 15:33:08
ChrisL
Hi
WS1.Cells(x + 2, 2) = WS2.Cells(i, 3)
anstelle von...
WS1.Cells(x + 2, 2) = WS2.Cells(i, 1)
cu
Chris

Danke !
17.02.2016 15:36:29
Meiky
you made my day ! Vielen Dank.

299 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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 Spalten anzeigen
Gernot

Hallo zusammen,
habe eine Liste mit 64 Spalten und ca. 5.000 datensätzen, die nach mehreren Kriterien
gefiltert wird(Autofilter). Es ist sehr mühsam, die gefilterten Spalten ausfindig zu machen.
Ich stelle mir vor, alle Spalten, in denen der Filter eingeschaltet ist, in eine Combobo...
05.12.2008 22:51:00
Thread-ID: 1030615
6 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
Nur gefilterte Daten in die Listbox
Larissa


Hallo,
ich möchte nur gefilterte Daten in der Listbox anzeigen lassen und kriege das nicht hin.
Ich füge mal meinen Code ein:
Private Sub UserForm_Activate() Dim lLetzte As Long Dim lZeile As Long Dim lLibox As Long Application.ScreenUpdating = False With Me.ListBox1 .Co...
17.01.2009 20:14:35
Thread-ID: 1040981
7 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
3
4
2
6
4
2
3
5
1
6
5
10
1
4
1
5
1
6
6
3
2
8
1
2
2