Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
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
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige