Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige