Kombinationsfeld befüllen
14.03.2007 21:57:27
Markus
Hallo,
mit angehängtem Code lasse ich mein Kombinationsfeld ("ComboAuswahl") befüllen.
Nun möchte ich als "Füllkriterium" sagen, dass das Kombinationsfeld keinen Eintrag mit einer Leerzeilen
enthalten darf und alle Einträge in der Combo die den Wert "europa" haben, ebenfalls im Kombinationsfeld gelöscht werden.
Für Hilfe schon jetzt vielen Dank!
Private Sub ComboAuswahl_Change()
Dim intC As Integer
Dim lngR As Long
lngR = 2
intC = (ComboAuswahl.ListIndex * 2) + 1
With listOptional
.Clear
If intC <= 0 Then Exit Sub
.ColumnCount = 2
Do
.AddItem Sheets("Suche").Cells(lngR, intC)
.List(.ListCount - 1, 1) = Sheets("Suche").Cells(lngR, intC + 1)
lngR = lngR + 1
Loop While Sheets("Suche").Cells(lngR, intC) <> ""
End With
End Sub
mfg,Markus