Sverweis in Listbox/Combobox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Sverweis in Listbox/Combobox
von: Jürgen
Geschrieben am: 15.04.2005 17:26:22
Hallo Forum
Suche Hilfe für Eintrag in Listbox
anbei Beispieldatei:
https://www.herber.de/bbs/user/21218.xls
Danke
Jürgen

Bild

Betrifft: AW: Sverweis in Listbox/Combobox
von: Ceyser Soze
Geschrieben am: 16.04.2005 10:33:48
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 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
CS
Bild

Betrifft: AW: Danke!!! O.T
von: Jürgen
Geschrieben am: 16.04.2005 14:06:51
.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sverweis in Listbox/Combobox"