Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
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
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste in Combobox einlesen und filtern

Liste in Combobox einlesen und filtern
27.01.2009 08:49:56
TomTom
Hi,
ich habe in meiner Tabelle einen Button, mit dem starte ich eine Userform. Auf der Userform sitzt eine Combobox.
Wenn sich die Userform öffnet soll der Inhalt ein kompletten Spalte (C) in diese Combobox eingelesen werden. (ohne doppelte und Leerzellen)
Wie geht das mit den einlesen und filtern.
Danke
Tom

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste in Combobox einlesen und filtern
27.01.2009 10:35:00
Peter
Hallo Tom,
das sollte so funktionieren:
Option Explicit

Private Sub CommandButton1_Click()
Dim lLetzte  As Long
Dim MyDic    As Variant
Dim rZelle   As Range
Set MyDic = CreateObject("Scripting.dictionary")
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
lLetzte = .Cells(Rows.Count, 3).End(xlUp).Row
For Each rZelle In Range("C2:C" & lLetzte)  ' ab Zeile 2 - in 1 stehen Überschriften
If rZelle.Value  "" Then
'MyDic(rZelle.Value) = MyDic(rZelle.Value)  ' unterschlägt Fehlerwerte
MyDic(rZelle.Text) = MyDic(rZelle.Text)     ' übernimmt den angezeigten Text, auch  _
Fehlerwerte
End If
Next rZelle
End With
ComboBox1.List = MyDic.keys
If ComboBox1.ListCount > 0 Then
ComboBox1.ListIndex = 0
End If
End Sub


Gruß Peter

Anzeige
Danke, alles klar,, oT
27.01.2009 13:44:20
TomTom

24 Forumthreads zu ähnlichen Themen

VBA, ComboBox, Listbox, Drucken
Angela


Ich habe eine Listbox in der mehrere Einträge ausgewählt werden können.
Solbald der Anwender einen Eintrag auswählt, sollte eine Prozedur ausgeführt werden.
Zum einen wird automatisch über sverweis ein paar Zellen gefüllt, zum anderen sollte gleich ein DinA 4 Seite gedruckt werden....
28.11.2008 18:08:00
Thread-ID: 1028760
13 Beiträge
Anzeige
Alle Blätter auflisten durch Combobox-Filter
Andreas

Hallo Excelforum,
ich habe im Netz folgenden Code gefunden, der alle Blätter der Mappe im Tabellenblatt "Blätter" auflistet:
Sub blätter() Dim blatt As Object Dim zeile As Double zeile = 3 For Each blatt In Sheets Sheets("Blätter").Cells(zeile, 1).Value = blatt.Name zeile = zeile + 1 N...
21.01.2015 22:05:18
Thread-ID: 1404286
8 Beiträge
Listbox auf Userform mit combobox filtern
Andre

Hallo Excel Freunde,
ich habe auf einer Userform eine Listbox und 3 Commandbutton. Ich öffne die Userform und in der Listbox werden alle Einträge der Tabelle angezeigt. Nun möchte ich mit den 3 Commandbuttons die Listbox nach folgenden Werten filtern.
CB1 soll Auswahl nach Lieferanten a...
05.02.2015 14:27:45
Thread-ID: 1407513
3 Beiträge
Anzeige
VBA gefilterte Daten mit textbox in listbox anzeig
benny

Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Tabelle mit zwei Spalten. In Spalte A sind verschiedene Namen und in Spalte B verschiedene Codes aufgelistet. Jedem Code sind unterschiedlich viele Namen zugeordnet. Zum Beispiel gehören zum Code 509080 die Namen Hans, Otto udn...
01.06.2015 17:08:37
Thread-ID: 1428711
5 Beiträge
Userform: Listbox über Combobox filtern
Ina

Hallo,
bin immer wieder begeistert, wie mir eure Beiträge weiterhelfen. Dieses Mal finde ich allerdings leider keine passende bzw. von mir verwendbare Lösung zu folgendem Problem:
Problem 1:
Listbox1 in der Userform1 wird aus einer Kundenliste befüllt. Listbox enthält 2 Spalten (ADM...
16.06.2015 17:21:45
Thread-ID: 1431293
8 Beiträge
VBA AutoFilter Auswahl aus Liste füttern
WalterK

Schönen Sonntag,
ich möchte die Auswahl für den Autofilter aus einer Liste füttern:
die Liste befindet sich im Bereich K3:K?
Und das ist mein Problem, die Liste ist unterschiedlich lang: manchmal stehen Einträge von K3:K10, dann wieder von K3:K4 usw.
Wie muss man das im Code anf...
27.09.2015 16:52:32
Thread-ID: 1449632
7 Beiträge
ListBox mittels ComboBoxen filtern
Markus

Liebes Forum,
wie es mein Betreff schon verrät, würde ich gerne wissen, ob man ComboBoxen auch als Filter für eine ListBox nutzen kann?
Eine ListBox anhand von abhängigen ComboBoxen konnte ich schon füllen. Nun ist mir die Idee gekommen, ob dies auch in die entgegengesetzte Richtung geh...
07.08.2017 20:44:29
Thread-ID: 1573159
3 Beiträge
Excel-Liste nach aktuellem Datum filtern VBA
Jehona

Hallo zusammen,
ich habe in Spalte A meiner Tabelle mit Überschrift "Datum" verschiedene Daten stehen.
Das aktuelle Tagesdatum steht immer in Zelle M1.
Ich möchte, dass beim Öffnen der Datei die Spalte A automatisch nach dem "Heute"-Datum filtert. Schön wäre es auch, dass wenn jema...
15.12.2017 11:30:49
Thread-ID: 1597405
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

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
12
5
7
2
1
4
7
6
2
3
13
3
5
1
17
1
5
12
1
2
4
4
3
6