Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1136to1140
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
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listboxeinträge in Autofilter

Listboxeinträge in Autofilter
Beni
Hallo zusammen
Kann mir jemand helfen? Ich versuche Einträge, die ich in einer Listbox (direkt im Excelblatt, nicht in einem Userform) anklicke, als Filterkriterien zu verwenden.
Leider schaff ich es nicht, die ausgewählten Elemente in den Autofilter zu packen... Vielen Dank für eure Hilfe.
Gruss
Beni

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
LinkedCell
17.02.2010 15:30:00
Björn
Hallo,
warum nicht, wo ist das Problem. Nicht böse gemeint, aber ich kann wirklich nicht erkennen, wo Du Dein Problem hast, weil Du zu wenig Infos geschrieben hast. Was hast Du denn bisher? Wie sieht Dein Code aus?
Du kannst doch z.B. über die LinkedCell den Wert aus der Zelle lesen...
Oder...
Oder...
Gruß
Björn B.
AW: LinkedCell
17.02.2010 15:40:05
Beni
Hallo Björn
Also ich habe in die Listbox die Namen unserer Teammitglieder gefüllt. Nun kann jeder seinen oder mehrere Namen anklicken und anschliessend mittels Autofilter die entsprechenden Daten in einer Tabelle filtern.
Mit meiner Variante funktioniert es leider nicht:
Dim strUser As String
strUser = ActiveSheet.lboxBearbeiter.Text
Selection.AutoFilter Field:=5, Criteria1:=strUser
Aber wie dann? Benötigt es eine Schleife um mehrere Filterkriterien zu verwenden?
Gruss
Anzeige
AW: LinkedCell
17.02.2010 16:13:23
Beni
klappt irgendwie nicht... kann doch nicht so schwer sein:
Selection.AutoFilter Field:=5, Criteria1:=activesheet.lboxbearbeiter.LinkedCell
Wie kann ich mit "LinkedCell" die Kriterien befüllen, die in der Listbox sind? Der Rest bleibt konstant. Muss ich mehrere Criterien 1, 2, 3 etc. anhängen? Wenn ja, wie geht das?
Merci nochmals.
Anzeige
AW: LinkedCell
17.02.2010 16:16:24
Hajo_Zi
Hallo Beni,
das hatte ich nicht vorgeschlagen. Ich bin dann raus.
Gruß Hajo
Standard-Autofilter hat alles
17.02.2010 16:20:36
Renee
Hi Beni,
klappt irgendwie nicht... kann doch nicht so schwer sein
Nein das ist wirklich nicht schwer, wenn frau/man einfach die Standardfunktionalität des 2007-Autofilters benutzt. In dem ist es ja möglich beliebig die Kriterien auszuwählen und einen Vorteil zu einer selbstgebastelten "Listbox-Multiselect-Kompliziertes-VBA-Gedöns-Und-16Millionen-Farbenspiel-mit-direkter-Beeinflussung-des-Autofilters"-Lösung sehe ich dann plötzlich nicht mehr !
LinkedCell kannste eh vergessen, weil da nur 1 Wert drinsteht und alles andere ist gesagt!
GreetZ Renée
Anzeige
AW: Standard-Autofilter hat alles
18.02.2010 15:38:54
Beni
Sorry für die vergessene Antwort, aber wenn man so am knobeln ist, vergisst man ab und zu einen Eintrag. Ich habe das Problem nun so gelöst:
3 Listboxen gefüllt mit Usern, Jahreszahlen und Monaten um Daten zu filtern. Es können jeweils verschiedene Optionen ausgewählt und mittels Knopfdruck gefiltert werden. Wohl etwas kompliziert, aber es funzt. :)
Vielen Dank für euren Input!

Sub Auswertung_Filtern()
'Bildschirmanzeige
Application.ScreenUpdating = False
'Blattschutz aufheben
Dim Passwort As Variant
Passwort = Worksheets("Benutzerrollen").Range("T13").Value
ActiveSheet.Unprotect Password:=Passwort
'Filter All
With ActiveSheet
If .FilterMode = True Then
.ShowAllData
End If
End With
Selection.AutoFilter Field:=1, Criteria1:="a"
'Variablen
Dim User As Variant
Dim AnzUser As Byte
Dim Jahr As String
'Werte
AnzUser = 1
'User nach denen gefiltert werden soll in Spalte eintragen
For User = 0 To ActiveSheet.lboxBearbeiter.ListCount - 1
If ActiveSheet.lboxBearbeiter.Selected(User) Then
Range("BM" & AnzUser).Value = ActiveSheet.lboxBearbeiter.List(User, 0)
AnzUser = AnzUser + 1
End If
Next User
'User Filtern
If ActiveSheet.boxUser.Visible = False Then
If AnzUser - 1

Anzeige
Sorry, aber der Teufel...
17.02.2010 16:26:08
Björn
... steckt wie so oft im Detail.
Ich hatte die Frage so verstanden, dass Du einen Eintrag als Kriterium möchtest, aber du hast ja ganz klar Einträge geschrieben.
Dann kannst Du meine Antwort natürlich völlig vergessen.
Da ich kein XL 2007 habe und auch nicht wusste, dass es diese Möglichkeit überhaupt gibt, bin ich einfach ohne Nachzudenken davon ausgegangen, dass es dir nur um 1 Eintrag geht....
Ich bin dann auch raus, sorry.
Gruß
Björn B.

299 Forumthreads zu ähnlichen Themen

Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Hintergrundfarbe CheckBox
Lars

Hallo zusammen,
wenn ich in meinem Excel-Dokument CheckBoxen anklicken, werden sie immer gelb hinterlegt. Ist das normal oder kann ich einstellen, dass sie einfach bleiben sollen wie beim Öffnen der Mappe?
Gruß
Lars
28.08.2008 16:33:42
Thread-ID: 1005522
2 Beiträge
Zeilenumbruch, wenn Textbox in Mail eingefügt wird
a_ke

Hallo,
ich versende mit dem folgenden Code ( von Rene Holtz - Danke !!!)
eine Mail mit Outlook.
Private Sub CommandButton2_Click() '* 11.01.2008, 15:50:00 * '* erstellt von Rene Holtz, http://www.rholtz-office.de _ a> '* rene.holtz@rholtz-office....
05.09.2008 12:00:39
Thread-ID: 1007636
4 Beiträge
Eingabe in CboBox übergangen
Ernst

Hallo
Da wird in einer CboBox eine Eingabe gefordert und einige von den Usern übergehen diese Eingabe obwohl sie logisch und erforderlich ist.
Es geht um diese Code:
Sheets("DatStd").Activate
g = ActiveSheet.UsedRange.Rows.Count
With UserForm5.CboBoxStd
.RowSource...
08.09.2008 20:12:00
Thread-ID: 1008246
5 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox 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
1
4
2
4
1
3
1
3
4
4
4
1
1
2
2
4
2
3
2
4
4
2
6
4
3