Füllen von 2. ComboBox
30.11.2003 17:13:03
Werner
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