Hallo,
habe hier im Archiv ein gutes Beispiel gefunden, dass ich gesucht habe. Hab es ein bischen angepasst. Wenn ich nun im Textfeld txtSuchen einen Suchbegriff eingebe und suche, wird mir in der Listbox alle Zellen mit Inhalt aufgelistet, die den Suchbegriff beinhalten. Die Listbox ist einspaltig.
Ich würde die Listbox gerne erweitern und nicht nur einspaltig den Inhalt aus der Zelle anzeigen lassen, sondern auch jeweils aus der Tabelle in dem gefundenen DS den Inhalt aus Spalte A und B. In Spalte A und B stehen Namen drin, mit denen ich dann den gesuchten Inhalt eindeutig identifizieren kann. Es bringt mir nichts, wenn ich nur weiss, dass gesuchte Ergebnis befindet sich irgendwo in der Tabelle, sondern ich will auch sehen, in welchem DS.
So ein DS soll in der Listbox dann so aussehen: (Gesucht wurde zB nach "AUFTRAG")
gefundenes Ergebnis______InhaltSpalteA_____InhaltSpalteB_______
AUFTRAGSNUMMER-123456____DAIMLER___________PROJEKT-INHOUSE_____
Dim rngFind As Range, rngFirst As Range
lstFind.Clear
Set rngFind = ActiveSheet.Cells.Find(what:=txtSuchen.Text, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
lstFind.AddItem rngFind
Set rngFind = ActiveSheet.Cells.FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address rngFirst.Address
Kann mir da jemand helfen ?
Danke
Kai