Abhängiges Listenfeld
18.04.2007 17:51:00
Markus
ich habe auf meinem Formular ein Kombinationsfeld "ComboBox1" und
zusätzlich ein Listenfeld "listOptional".
Wenn ich im Kombinationsfeld einen Eintrag ausgewählt habe, wird das
Listenfeld entsprechend dem folgenden Code gefüllt:
Dim intC As Integer
Dim lngR As Long, wks As Worksheet
Set wks = Sheets("Auswahloptionen")
intC = (ComboBox1.ListIndex + 2) * 2
With listOptional
.Clear
If intC <= 0 Then Exit Sub
.ColumnCount = 2
For lngR = 2 To wks.Cells(wks.Rows.Count, intC).End(xlUp).Row
If Not IsEmpty(wks.Cells(lngR, intC)) _
And LCase(wks.Cells(lngR, intC)) <> "0" _
And wks.Cells(lngR, intC) <> "" Then
.AddItem wks.Cells(lngR, intC)
.List(.ListCount - 1, 1) = wks.Cells(lngR, intC)
End If
Next lngR
End With
Problem ist hierbei, dass sowohl in Spalte 1 als auch in Spalte 2 vom Listenfeld die gleichen Einträge stehen.
In meinem unten angehängten Beispieldatei sollten bei der Auswahl vom Eintrag "Deutschland" im
Kombinationsfeld folgende Einträge im Listenfeldfeld erscheinen:
Spalte1 Spalte2
a Frankfurt
b Bonn
c Berlin
https://www.herber.de/bbs/user/41856.xls
Grüße,
Markus