Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige