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

Filtern in einer Combobox

Forumthread: Filtern in einer Combobox

Filtern in einer Combobox
afox
Hallo
Ich möchte in einer Combobox Werte filtern.
Das Beispielfile habe ich angehängt.
In der ersten Box (Maschine) sollen die Werte aus Spalte A zur Auswahl erscheinen, aber jeder Wert nur einmal. Wie beim Autofilter. Und in der zweiten Combobox (Teile) nur die Auswahl (Spalte B) passend zur ersten Combobox.
Hat jemand eine Idee?
grüsse
afox
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Filtern in einer Combobox
25.06.2010 08:56:28
Beverly
Hi, 
Option Explicit
Private Sub UserForm_Activate()
Dim objDictionary As Object
Dim Bereich As Variant
Dim loZaehler As Long
Dim arrDaten As Variant
Set objDictionary = CreateObject("Scripting.Dictionary")
With Worksheets("Tabelle1")
Bereich = .Range("A1", .Range("A1").End(xlDown))
End With
For loZaehler = LBound(Bereich) To UBound(Bereich)
objDictionary(Bereich(loZaehler, 1)) = 0
Next
arrDaten = objDictionary.keys
ComboBox1.List = arrDaten
End Sub
Private Sub ComboBox1_Change()
Dim loZeile As Long
ComboBox2.Clear
With Worksheets("Tabelle1")
For loZeile = 1 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp) _
.Row, .Rows.Count)
If .Cells(loZeile, 1) = ComboBox1 Then ComboBox2.AddItem .Cells(loZeile, 3)
Next loZeile
End With
End Sub


Anzeige
AW: Filtern in einer Combobox
28.06.2010 13:21:47
afox
Danke
Das ist genau was ich brauche.
;

Beliebteste Forumthreads (12 Monate)

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