Herbers Excel-Forum - das Archiv

Sverweis in Listbox/Combobox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
Excel-Beispiele zum Thema "Sverweis in Listbox/Combobox"
SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Arbeitszeittabelle und SVERWEIS-Formel Zugriff über SVERWEIS() auf eine Artikelliste
SVERWEIS-Formel über mehrere Fundstellen SVERWEIS-, WVERWEIS- und Matrixformel-Beispiele
SVERWEIS, WVERWEIS, INDEX, VERGLEICH und Zielwertsuche Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen
Hyperlinks zu SVERWEIS-Bezugstabellen anlegen SVERWEIS als Ereignisprozedur