suchfunktion in listbox

Forumthread: suchfunktion in listbox

16.03.2008 22: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

AW: suchfunktion in listbox

16.03.2008 23:37:00

chris
AW: suchfunktion in listbox

16.03.2008 23:46:28

Daniel
AW: suchfunktion in listbox

17.03.2008 16:17:00

Alex
noch Fragen ?

19.03.2008 09:37:21

geschlosssen
AW: noch Fragen ?

19.03.2008 11:55:00

Alex

AW: suchfunktion in listbox

16.03.2008 23: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

AW: suchfunktion in listbox

16.03.2008 23: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

AW: suchfunktion in listbox

17.03.2008 16: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 09:37:21

geschlosssen

AW: noch Fragen ?

19.03.2008 11: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....

Forumthread: suchfunktion in listbox

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

VBA Beispiele zu diesem und ähnlichen Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread