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

Combobox mit Folgeauswahl

Forumthread: Combobox mit Folgeauswahl

Combobox mit Folgeauswahl
23.03.2006 09:47:28
Thomas
Hallo,
ich möchte gerne mit einer Combobox Daten auswählen... kein Problem. Mit einer zweiten Daten die aus der ersten Box resultieren.
Bsp. 3 Verschiedene Gewerke (Elektro, Sanitär,Tischler)
in der 2. Combobox möchte ich dann nur die jeweiligen Firmen des ausgewählten Gewerkes angezeigt bekommen. (Daten sind ebenfalls hinterlegt)
Vielen Dank.
Gruß Thomas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Combobox mit Folgeauswahl
23.03.2006 10:22:58
u_
Hallo,
hier mal ein Beispielcode. Deine Daten stehen in Data!A:B
in das Klassenmodul der Tabelle mit den CBs:

Private Sub worksheet_Activate()
Dim rng As Range
ComboBox1.Clear
ComboBox2.Clear
With Sheets("Data")
For Each rng In .Range(.Cells(2, 4), .Cells(65536, 4).End(xlUp))
If rng <> rng.Offset(-1, 0) Then ComboBox1.AddItem rng
Next rng
End With
End Sub



Private Sub ComboBox1_Change()
Dim rng As Range
ComboBox2.Clear
With Sheets("Data")
For Each rng In .Range(.Cells(2, 5), .Cells(65536, 5).End(xlUp))
If rng Like ComboBox1.Value & "*" And rng <> rng.Offset(-1, 0) Then ComboBox2.AddItem rng
Next rng
End With
End Sub

Gruß
Geist ist geil!
Anzeige
AW: Combobox mit Folgeauswahl
23.03.2006 10:43:29
Thomas
Hallo u_,
Danke für Deine Anwort. Kannst Du mir evtl. mal ein Bsp hochladen. Bin erst in den ersten Zügen mit VBA...
Vielen Dank.
Gruß Thomas
;

Beliebteste Forumthreads (12 Monate)

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