Office: Suchen und Selektieren in ListBox

Hallo zusammen,

es geht nochmal um eine Listbox (@Mase: Ja, ich kenne den richigen Begriff *wink.gif* .

Folgende Aufgabenstellung:
3-spaltige Listbox, diese Listbox soll durchsucht werden. Alle dem Suchbegriff entsprechende Zeilen werden selektiert. Der User kann über die Checkbox vor der ersten Spalte Zeilen von der Selektion ausnehmen.
Bis hierher funktioniert es.

Jetzt möchte der User einen anderen Begriff suchen und weitere Zeilen der Selektion hinzufügen. Problem: Bei meinem Code (den ich wegen meiner bestehenden Array-Legasthenie nicht komplett selbst gebaut habe), verliert die Listbox die zuerst ausgewählte Selektion und fängt wieder von vorne an.

Beispiel in der angehängten Datei:
Der User gibt zuerst den Suchbegriff "AAA" ein und trifft von den gefundenen Zeilen eine Auswahl. Dann möchte er zusätzlich aus dem Bereich "BBB" Zeilen selektieren.

Hat jemand eine Idee, wie ich das "gebacken" bekomme?

:)

 

Huhu Regina,

Du willst es vielleicht nicht hören, aber die/der Antwort/Vorschlag heißt auch hier Array.
Ein Array, welches den selektierten .ListIndex der ersten Suche beinhaltet.

Da man nun ja nicht wissen kann, wie viele Suchdurchgänge der User unternimmt (Wiederholungen), würde Ich sogar meinen, es böte sich hier ein Jagged-Array an.

Also ein Array im Array. Quasi ein Array, das 1D-Arrays als Elemente aufnimmt.

Die Auflistung aller Elemente dieser 1D-Arrays ist Dein finales 1D-Array/.Selected-Eigenschaft Deiner Listbox.

 

Hallo,

meinen Vorschlag willst du ganz bestimmt nicht hören ... so, wie du das angehst, wird das, IMHO, nie klappen.

Entweder brauchst du mehrere Modi (über CheckBoxen einstellbar) in denen du selektierst, ob eine Mehrfachauswahl gemacht werden soll ... und du brauchst einen Button, um die gesamte Selektion aufzuheben.

Und wenn du das alles hast, dann kannst du eigentlich auch gleich den Autofilter nehmen und das Filtrat der einzelnen Selektionen in die ListBox untereinander stellen.

Sabina

 

Hallo Ihr Beiden,
so richtig glücklich bin ich mit dem ganzen Vorgehen nicht. Eigentlich müsste der User im Tabellenblatt filtern und dort seine Auswahl treffen. Das Ganze gehört aber zu einem größeren Projekt, wo dieses Vorgehen nicht funktioniert.....

Ich denke mal weiter ....

 

Hallo Regina,

ich weiß nicht worauf das hinauslaufen soll. Meinst du so?

Option Explicit

Private Sub UserForm_Initialize()

With List_Artikel

.ColumnCount = 4
.ColumnWidths = "100 Pt;300 Pt;0 Pt;200 Pt"

End With

With ThisWorkbook.Worksheets("Tabelle2")

List_Artikel.List = .Range(.Cells(2, 1), .Cells(.Rows.Count, 4).End(xlUp)).Value2

End With
End Sub

Private Sub txt_suche_Change()

Dim lngRow As Long, lngColumn As Long
Dim strText As String

strText = LCase$(txt_suche.Text)

With List_Artikel

For lngRow = 0 To .ListCount - 1

For lngColumn = 0 To .ColumnCount - 1

If InStr(LCase$(.List(lngRow, lngColumn)), strText) > 0 Then .Selected(lngRow) = True

Next
Next
End With
End Sub

 

Sabinas Gedanken und Bedenken aufgreifend: Mach einen Button für "Suche starten" und "Suche löschen".

Code:

 

\@Nepumuk: das scheint in die richtige Richtung zu gehen, allerdings haut die Suche nicht immer hin:
Gebe ich "bbbb" ein, werden auch die Einträge, die mit "AAAA" bebinnen mit selektiert.

 

\@EarlFred: Das scheint ein gangbarer Weg zu sein. Die Such eläuft sauber und die bereits bestehenden Selects bleiben auch bestehen. Werde das mal im "größeren" Rahmen austesten.

Euch allen erstmal vielen Dank für den Input!

 

Hallo Regina,

das liegt daran, dass sich in Spalte D bei AAA und AAA 30 B's befinden.

 

..uff, hast Recht .....
ich glaube, ich mache für heute Feierabend*upps

 

Hallo,

wenn das ein größeres Projekt wird, dann mach doch mal einen Versuch, deine Filterdaten mit einer ADO/ODBC Abfrage über ein SQL-Statement in ein Recordset zu holen ... da kannst du nicht nur Mehrfache-Selektionen machen, sondern du hast auch gleich die Möglichkeit, bevor die Daten im Recordset landen, zu Sortieren. Und die Ausgabe der Daten geht in einer einzigen Zeile.

Sabina

PS:
mit einer DISTINCT-Einschränkung, kannst du übrigens theoretisch auch Doppelte eliminieren. Ob der Clause aber auch in Excel funktioniert, habe ich noch nie ausprobiert.

 

...so, ich habe mich jetzt nach einigen Tests für die Variante von EarlFred entschieden. Die Variante mit Schaltflächen kommt den Arbeitsgewohnheiten der betroffenen User sehr entgegen.

@Sabina: Sicher auch ein interessanter Ansatz, wollte dieses Fass aber nicht aufmachen, muss auch sehen, dass das zeittechnisch im Rahmen bleibt.

Nochmal allen ein riesen Dankeschön für den Input und ein schönes Wochenende!

 

Habe eine nebensächliche Frage zur Datei in #1:
Wo kommen die Checkboxen, die in jeder Zeile der Listbox sind, her? Wie kann man die Listbox ohne Checkboxen darstellen? Ich beziehen mich dabei auf die in Beitrag #1 angehängten Datei „ListObjects_Fragen.xlsm“.
LGB

 

Hallo,

das wird mit der ListStyle Eigenschaft eingestellt. Beispiel in der OH:
https://docs.microsoft.com/de-de/off...erties-example

Gruß Ulrich