Guten Tag,
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