Das Archiv des Excel-Forums

Suchfunktion für Listbox in Userform integrieren

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

Betrifft: Suchfunktion für Listbox in Userform integrieren
von: stefanseevetal

Geschrieben am: 23.06.2008 12:59:20

Hallo Liebe Profis!
Ich habe eine Listbox in einer Userform, in der meine Outlook-Kontakte aufgelistet werden. Da die Liste recht lang werden kann, würde ich gerne in der Userform eine Suchfunktion per Textfeld integrieren, so dass ich z.B. den Namen "Meier" eingeben kann und mir in der Listbox dann nur noch die Einträge angezeigt werden, die den Namen "Meier" beinhalten. Genial wäre es natürlich, wenn sich die Listbox bei jedem Buchstaben, den ich in das Textfeld eingebe, reduziert, z.B. wenn ich "a" eingebe, werden in der Listbox nur noch alle Einträge mit dem Anfangsbuchstaben a angezeigt, wenn ich dann ein "an" eingebe, nur noch alle Einträge, die mit "an" beginnen usw.
Hat da jemand vielleicht schon mal etwas geschrieben? Und falls nicht, vielleicht kann mir ja jemand für den Anfang sagen, wie ich die Einträge in einer Listbox durchsuchen und mit einem Wort vergleichen kann?!
Also, schon mal vielen Dank und Gruß,
Stefan

Bild

Betrifft: AW: Suchfunktion für Listbox in Userform integrieren
von: Rudi Maintaire
Geschrieben am: 23.06.2008 13:27:53
Hallo,
teste mal:


Private Sub TextBox1_Change()
ListBox1.List = myListArray(Sheets(1).Range("A1").CurrentRegion.Value, , TextBox1.Text)
End Sub



Function myListArray(vntList, Optional iCol, Optional strText)
Dim vntTmp(), i As Integer, j As Integer, k As Integer
ReDim vntTmp(LBound(vntList, 2) To UBound(vntList, 2), LBound(vntList, 1) To UBound(vntList,  _
1))
If IsMissing(iCol) Then iCol = 1
If IsMissing(strText) Then
myListArray = vntList
Exit Function
End If
k = LBound(vntList) - 1
For i = LBound(vntList) To UBound(vntList)
If LCase(vntList(i, iCol)) Like LCase(strText & "*") Then
k = k + 1
For j = LBound(vntList, 2) To UBound(vntList, 2)
vntTmp(j, k) = vntList(i, j)
Next
End If
Next i
ReDim Preserve vntTmp(LBound(vntList, 2) To UBound(vntList, 2), LBound(vntList, 1) To k)
myListArray = WorksheetFunction.Transpose(vntTmp)
End Function


Die Listbox wird aus Sheets(1).Range("A1").CurrentRegion.Value gefüllt


Private Sub UserForm_Activate()
Dim vntList
vntList = Sheets(1).Range("A1").CurrentRegion
With ListBox1
.ColumnCount = UBound(vntList, 2)
.List = vntList
End With
End Sub

Gruß
Rudi

Bild

Betrifft: vielen Dank, funzt super
von: stefanseevetal

Geschrieben am: 23.06.2008 13:39:32
Hallo Rudi,
einmal mehr vielen Dank für Deine Hilfe. Es funktioniert super!
Gruß,
Stefan

 Bild

Excel-Beispiele zum Thema "Suchfunktion für Listbox in Userform integrieren"

Mehrfachauswahl aus ListBox auslesen download Gefilterte Daten in eine ListBox einlesen download
Dateien aus Listbox auslesen und öffnen download Listbox-Eintrag durch Mausbewegung markieren download
ListBox-Einträge auswechseln download Horizontal angeordnete Elemente in eine ListBox übernehmen download
Tabellenblattnamen in eine ListBox einlesen download ListBox bei Eintrag erweitern download
Als Zellkontextmenü Listbox aufrufen download Dateinamen in Listbox download
Mehrfachauswahl in ListBox auslesen download Ordner eines Verzeichnisses in ListBox übernehmen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Matrix in UserForm-ListBox einlesen download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Ausgewählte Werte aus UserForm-ListBoxes addieren download Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download ListBox-Auswahl in Labels übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Blattnamen bedingt in ListBox einlesen und Blätter auswählen download
Einlesen von Spaltenköpfen in UserForm-ListBox download Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download
Mehrspaltige UserForm-ListBox lückenlos füllen download Makroverzweigungen nach OptionsFeld- oder ListBox-Auswahl download
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download Werte aus UserForm-ListBox in die Zwischenablage übernehmen download
Wert aus UserForm-ListBox in Tabellenblatt eintragen download Einlesen des Outlook-Adressbuches in eine UserForm-ListBox download
Blattauswahl über UserForm-ListBox mit Mehrfachauswahl download UserForm-TextBox-Werte einer ListBox hinzufügen download
Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter download Zufallszahl in UserForm-ListBox zentriert anzeigen download
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen download
Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen download
UserForm-ListBox-Einträge sortieren download Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös download
Doppelte Einträge in UserForm-ListBox löschen download Mehrspaltige UserForm-ListBox sortieren download
Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle download Zweite ListBox in Abhängigkeit der ersten füllen download
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download Werte in zweispaltiger ListBox rechts- und linksbündig darstellen download
Diagramm in Userform download XL-Dateien in UserForm listen download
UserForm an Excel-Fenster anpassen download Fundstellen in UserForm listen download
Module und UserForms austauschen download In einer Schleife auf Elemente einer UserForm zugreifen download
Werte in eine ComboBox einer UserForm übernehmen download Zellinhalt als Label-Aufschrift in UserForm download
Alle CheckBoxes einer UserForm ansprechen download Wenn kein Eintrag, UserForm nicht schließen download
Aktiven Drucker in UserForm wechseln download Text aus UserForm-Textbox in Variable einlesen download
UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download Nur Buchstaben in eine UserForm-TextBox download
Wert in Tabelle suchen und in UserForm ausgeben download Tabellenblatt in UserForm download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Nach Ortsauswahl neue UserForm mit Ortsteilauswahl download
Textfelder in UserForm beim Start vorbelegen download Text aus UserForm in eine Zelle schreiben download
Verhindern des Schließens einer UserForm mittels Schließkreuz download Wert in UserForm-TextBox eintragen und selektieren download
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download ComboBox-Felder in UserForm aufklappen download
Eingabekontrolle bei UserForm download UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download
Userform in der Entwicklungsumgebung anzeigen download Wert aus 2. UserForm-ComboBox-Spalte berechnen download
CheckBoxes in UserForms in eine Schleife einbinden download Anzahl von CheckBoxes in einer UserForm ermitteln download
Vereinfachte Datumseingabe über UserForm download Auslesen des ausgewählten Optionsfeldes in einer UserForm download
Werte von CheckBoxes in einer UserForm abfragen download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Datensätze in UserForm auswählen und im Blatt löschen download
Bilder in UserForm und Bildgröße anpassen download Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download
Werte aus UserForm-TextBox in bestimmten Formate übertragen download UserForm als Fortschrittsanzeige download
AcrobatReader mit *.pdf-Dokument über UserForm starten download Zu einer aufrufenden UserForm zurückkehren download
In einer UserForm Berechnungen aufaddieren download Spalte A mehrer Mappen in UserForm und aktives Blatt download
Adressfeld aus UserForm-ComboBox füllen download Variablen auf mehrere Arten in Funktionen integrieren download