ListBox Suche Filter SQL oder anders?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
Da du geschrieben hattest: "SQL oder anders" hier mal eine andere Variante. :-)
https://www.herber.de/bbs/user/136649.xlsm
Habe deinen Code am Ende gelassen. Wenn du keinen Optionbutton auswählst, wird der Familienname genommen ansonsten der ausgwählte Wert. Es wird nach Groß oder KLeinschreibung unterschieden. Als Bezug wird immer die ganze Liste genommen und nicht eine vorher erstellte (durch rausziehen etc. könnte man aber noch ergänzen). Eine SQL Lösung habe ich nicht eingebaut.
Habe mir dann nochmal die letzten Codes angeschaut. Falls du später mal deine Liste erweitern willst, wäre es ggf. besser die Zeilennummer in die 1. Spalte zu legen und nicht anzuzeigen. Damit könnte du auch wieder nach belieben deine Spaltenanzahlen anpassen. Zudem könntest du die Spaltennummer direkt im Blatt in Spalte A eintragen (geht auch als Formel). Das hätte den Vorteil, dass du den Bereich auch direkt aus dem Blatt an die list Eigenschaft übergeben kannst. Zudem würde das die SQL Lösung erleichtern. Da wird sich ja auf das Blatt bezogen und der Bereich genommen. Die Spalte mit der Zeilennummer fehlt dort. Nachteil ist aber, dass du ggf. deinen Code nochmal durchschauen und vermtl. in TEilen ändern musst. Ist aber wie gesagt nur eine Idee.
VG

Moin!
ALso falls du Groß/Kleinschreibung nicht beachten willst, dann ändere die Zeile hier:

If Me.lst_Teilnehmer.List(zeile, optindex(auswahl)) Like Me.txt_Suche & "*" Then

so um

If UCase(Me.lst_Teilnehmer.List(zeile, optindex(auswahl))) Like UCase(Me.txt_Suche) & "*" Then

Falls du den Text nicht vom Anfang her haben willst, könnte man das auch ändern. Gemeint ist damit, dass du für einen Treffer bisher ja den Text vom Anfang kennen musst. Hasst du bspw. den Namen Milchbauer, musst du wissen, dass er mit Milch beginnt. Kannst du dich aber nur daran erinnern, dass Bauer mit drin war, findest du ihn nicht. Da könntest du es so ändern (keine Rücksicht auf Groß/Klein)

If InStr(1, UCase(Me.lst_Teilnehmer.List(zeile, optindex(auswahl))), UCase(Me.txt_Suche), vbTextCompare) > 0 Then

Damit kannst du auch bauer eingeben und findest ihn.
Soweit erstmal. Dir auch noch Frohe Ostern.
VG

Beliebteste Forumthreads (12 Monate)

ListBox Suche Filter SQL oder anders?

SQL Beispiel
`https://www.herber.de/bbs/user/136567.xlsm`

Eine kleine Hilfe, was und wo ich den/die Filter einbauen muss im txt_Suche_Change Event?

Array Beispiel (meine Version)
`https://www.herber.de/bbs/user/136566.xlsm`

Vielen Dank im Voraus
Peer

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ListBox Suche Filter SQL oder anders?

SQL Beispiel https://www.herber.de/bbs/user/136567.xlsm Eine kleine Hilfe, was und wo ich den/die Filter einbauen muss im txt_Suche_Change Event?

Array Beispiel (meine Version) https://www.herber.de/bbs/user/136566.xlsm Vielen Dank im Voraus Peer

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SQL Beispiel
`https://www.herber.de/bbs/user/136567.xlsm`

Eine kleine Hilfe, was und wo ich den/die Filter einbauen muss im txt_Suche_Change Event?

Array Beispiel (meine Version)
`https://www.herber.de/bbs/user/136566.xlsm`

Vielen Dank im Voraus
Peer

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread