Sverweis in Listbox/Combobox

Forumthread: Sverweis in Listbox/Combobox
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Sverweis in Listbox/Combobox

15.04.2005 19:26:22

Jürgen

Hallo Forum
Suche Hilfe für Eintrag in Listbox
anbei Beispieldatei:
https://www.herber.de/bbs/user/21218.xls
Danke
Jürgen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sverweis in Listbox/Combobox

16.04.2005 12:33:48

Ceyser Soze
AW: Danke!!! O.T

16.04.2005 16:06:51

Jürgen

AW: Sverweis in Listbox/Combobox

16.04.2005 12:33:48

Ceyser Soze

Hi Jürgen,
füge diesen Code ein:

Private Sub ComboBox1_Change()
ListBox1.Clear
With Worksheets(1).Range("B1:E5")
    Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ListBox1.AddItem c.End(xlUp)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A2:A6"
ComboBox1.ListIndex = 0
End Sub