Füllen von 2. ComboBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Füllen von 2. ComboBox
von: Werner
Geschrieben am: 30.11.2003 17:13:03

Hallo Leute

Mit diesem Code lasse ich die ComboBox1 mit einer Liste beim aktivieren einer Userform füllen.


Dim Z1 As Integer
Dim F2 As Range
Z1 = Sheets("Help").Range("D2")
r auf Zelle (Z1) gesetzt
Set F2 = Sheets("Help").Cells(1, 3)
Me.ComboBox1.Clear
For i = 0 To Z1 - 1
Me.ComboBox1.AddItem F2
Set F2 = F2.Offset(1, 0)
Next

Nun meine Frage ist es möglich, wenn ich z.B. aus der Liste das Word "Haus"
auswähle, so dass in der ComboBox2 eine Auswahl aus einer anderen Liste angezeigt wird? So das bei jedem anderen Word eine andere Liste in der ComboBox2
angezeigt wird.

Werner

Bild


Betrifft: AW: Füllen von 2. ComboBox
von: K.Rola
Geschrieben am: 30.11.2003 18:00:42

Hallo,

ja, das geht natürlich, aber womit soll die zweite Combobox
gefüllt werden und wie, mit RowSource(oder ListFillRange, falls in
einer Tabelle) oder AddItem, List()?

Gruß K.Rola


Bild


Betrifft: AW: Füllen von 2. ComboBox
von: Werner
Geschrieben am: 30.11.2003 18:17:19

Hallo K. Rola

Die 2. ComboBox soll mit einer Liste, die auf dem Blatt Help in der Spalte E2 - E15 steht gefüllt werden.

Werner


Bild


Betrifft: AW: Füllen von 2. ComboBox
von: K.Rola
Geschrieben am: 30.11.2003 19:34:00

Hallo,

jetzt weiß ich aber noch nicht:

userform oder Tabelle?
List(), Rowsource, Additem?
Wenn was in Combobox1 ausgewählt wird, soll Combobox2 gefüllt werden?

Gruß K.Rola


Bild


Betrifft: AW: Füllen von 2. ComboBox
von: werner
Geschrieben am: 30.11.2003 19:53:35

die Comboboxsen sind auf userform
Additem


Bild


Betrifft: AW: Füllen von 2. ComboBox
von: K.Rola
Geschrieben am: 30.11.2003 20:04:37

Hallo,

mal ein allgemeines Beispiel:

Option Explicit

Private Sub ComboBox1_Change()
Dim z As Long
Select Case ComboBox1.ListIndex
Case 1
  ComboBox2.Clear
  ComboBox2.RowSource = "Tabelle1!B1:B10"
Case 2
  ComboBox2.RowSource = ""
  ComboBox2.Clear
  For z = 1 To 10
    ComboBox2.AddItem Sheets("Tabelle1").Cells(z, 3)
  Next
Case Else
  ComboBox2.RowSource = ""
  ComboBox2.Clear
End Select
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Füllen von 2. ComboBox
von: Werner
Geschrieben am: 30.11.2003 20:19:51

Danke für die Antwort ich werde es mal ausporbieren.

Werner


Bild

Beiträge aus den Excel-Beispielen zum Thema " Füllen von 2. ComboBox"