Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sverweis in Listbox/Combobox

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sverweis in Listbox/Combobox
16.04.2005 10: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 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
CS
Anzeige
AW: Danke!!! O.T
16.04.2005 14:06:51
Jürgen
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige