suchliste
28.12.2016 16:21:42
bassi2008
ich habe etwas "gestohlen" und möchte es etwas anpassen.
Anbei eine Bsp.Datei.
Ich möchte gern mit der Suchfunktion in allen Spalten der Range A:D suchen.
Dieses Ergebnis soll in der Listbox angezeigt werden.
Das klappt auch dank meiner (modifizierten) "gestohlenen" Vorlage super.
Nun ist das Konstrukt aber so gestaltet, dass in der Listbox an erster Stelle immer der Wert dargestellt wird, der auch gesucht wurde.
With Me.ListBox1
.ColumnCount = 4
.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 3).Value
.ColumnWidths = "2,5cm;1,5cm;2,5cm;2,5cm"
End With
Ich möchte aber, wenn ich z.B. einen Wert aus der zweiten oder dritten Spalte suche, trotzdem eine unveränderte Anzeige nach A, B, C, D.In der Listbox soll immer ganz links die erste Zeile der Range A:D, also Spalte A angezeigt werden.
Kann mir da jemand vielleicht unter die Arme greifen?
Viele Grüße
bassi
https://www.herber.de/bbs/user/110220.xlsm