Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchfunktion in listbox

suchfunktion in listbox
16.03.2008 21:58:41
Alex
hallo vba profis...
kann mir mal jemand sagen wie man eine suchfunktion erstellt....also:
habe eine listbox da stehen artikel drin...nun sind es viele...möchte mit einer textbox eine art suche machen...(man gibt das was man sucht ein,und je nach eingabe werden die werte in der listbox gefiltert und markiert...)geht das überhaupt?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchfunktion in listbox
16.03.2008 22:37:00
chris
Hallo Alex habe hier auf die schnelle was erstellt.
Du Musst nur eine textbox erstellen mit dem Namen "dienesuchtextbox"
gruß Chris
Option Explicit
'Button zum klicken wenn Suchbegriff eingegeben wurde in Textbox

Private Sub star_suche_textboxeintrag_Click()
Dim entrylb
Dim y As Integer
y = 0
For Each entrylb In Me.deinelistbox.List
If entrylb = Me.dienesuchtextbox.Value Then
Me.deinelistbox.ListIndex = y
Else
y = y + 1
'Eintrag nicht übereinsimmend
End If
Next
End Sub


'Zum Füllen der listbox


Private Sub UserForm_Initialize()
Dim x As Integer
For x = 1 To 20
Me.deinelistbox.AddItem "Eintrag " & x
Next
End Sub


Anzeige
AW: suchfunktion in listbox
16.03.2008 22:46:28
Daniel
Hi
im Prinzip geht das schon, je nachdem was du haben willst.
Filtern (dh. ausblenden der Unpassenden Werte) geht meines wissen nach nicht.
was da funktioniern könnte , wäre die Werte in eine andere Listbox kopieren und dort anzeigen, also in etwa so:

Private Sub Textbox1_Change
Listbox2.Clear
For i = 0 to Listbox1.Listcount-1
if instr(Listbox1.List(i), textbox1.text) > 0  then Listbox2.additem Listbox1.List(i)
next
End Sub


das Markieren innerhalb der gleichen Listbox würde dann so funktionieren, dazu muss allerdings die Multiselect-Eigenschaft der Listbox aktiert sein:


Private Sub Textbox1_Change
For i = 0 to Listbox1.Listcount-1
Listbox1.Selected(i) =  instr(Listbox1.List(i), textbox1.text) > 0
next
End Sub


Gruß, Daniel

Anzeige
AW: suchfunktion in listbox
17.03.2008 15:17:00
Alex
wooow...ging ja schnell!
werde mal beide varianten testen...danke schon mal für zügige antworten!
gruß alex

noch Fragen ?
19.03.2008 08:37:21
geschlosssen

AW: noch Fragen ?
19.03.2008 10:55:00
Alex
hmmm...ja...
ich habe eine listbox (schon eine andere...)da sind 4 spalten....nun möchte ich den GESAMTEN inhalt dieser listbox(4 spalten)irgendwie in eine text datei exportieren...habe ein code:

Private Sub Exportbut_Click()
Open "c:\temp\listbox1.txt" For Output As #1
For a = 0 To ListBox1.ListCount - 1
Print #1, ListBox1.List(a)
Next a
Close #1
End Sub


....aber der zeigt mir in der txt nur inhalte der ersten spalte....
...ich weiß da gibts bestimmt eine einfache lösung...nur ich komm net drauf!HILFE!
und danke schonmal im voraus....

Anzeige

Links zu Excel-Dialogen

ListBox TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige