Suchfunktion, mehrere Spalten, Zeile kopieren

Hallo zusammen,
ich möchte eine Suchfunktion in meine Mappe bauen. Auf einer Userform befinden sich eine Textbox und eine Listbox. Man soll den Suchbegriff in die Textbox eingeben und alle Zeilen des Daten-Tabelleblattes, welche das Suchwort in einer ihrer Spalten haben, sollen auf ein neues Blatt kopiert werden. Dabei muss keine exakte Übereinstimmung vorliegen, eine ähnliche Übereinstimmung ist sogar wünschenswert.
Die Ergebnisse auf dem Ergebnis-Tabellenblatt möchte ich dann in die Listbox laden. Wie das funktioniert, weiß ich schon. Ich habe aber keine Ahnung, wie der Code aussehen muss, der alle Spalten eines Blattes nach einem Suchbegriff durchsucht und alle Funde als ganze Zeile in ein neues Blatt kopiert.
Was kein Probem wäre: dass der Code eine Zeile öfter kopiert, weil der Suchbegriff in mehr als einer Spalte vorkommt.
Wer kann mir helfen?
Ich habe dazu eine Beispielmappe gemacht:

Die Datei https://www.herber.de/bbs/user/85803.xls wurde aus Datenschutzgründen gelöscht

Gruß
Erdogan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Erdogan,
Wofür steht die 9 ?
die 9 steht für 10 vorhandene Spalten in der Listbox!
Seltsam, oder? Ist aber so :-)
Die Listbox hat folgende Spalten:
0-1-2-3-4-5-6-7-8-9
das ergibt 10 Spalten insgesamt.
In Spalte 0 steht die Automarke (Audi, BMW usw) durch "AddItem", dann werden die Spalten 1-9 per Schleife gefüllt.
wie bekomme ich es hin, dass ich auch die Überschriften angezeigt bekomme?
ganz einfach: Erstelle auch für die Überschriften ein ListBox-Item und die 9 Zeilen rechts davon.
Anbei mal der angepasste Code, welcher das macht. Bei der Gelegenheit habe ich den Code auch durchkommentiert und am Ende eine Zeile dazugepackt, welche die Hilfsformeln wieder löscht.

Private Sub TextBox1_Change()
Dim iRow As Long
Dim r As Range
Dim i As Integer
'alle Einträge aus der ListBox entfernen
ListBox1.Clear
With Sheets("Daten")
'letzte Zeile
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row
'das Suchwort aus der TextBox in die Tabelle schreiben
.Range("K1").Value = TextBox1.Text
'per Formel die Häufigkeiten des Suchwortes* ermitteln
.Range(.Cells(2, 11), .Cells(iRow, 11)).FormulaR1C1 = "=COUNTIF(RC[-10]:RC[-1],R1C&""*"")"
For Each r In .Range(.Cells(1, 11), .Cells(iRow, 11))
'Wenn das Suchwort vorkommt ODER die erste Zeile (Überschriften) dran ist, dann:
If r.Value > 0 Or r.Row = 1 Then
'erstelle einen neuen ListBox-Eintrag
ListBox1.AddItem .Cells(r.Row, 1).Value
'und erstelle die 9 Spalten rechts davon in der Listbox
For i = 1 To 9
ListBox1.List(ListBox1.ListCount - 1, i) = .Cells(r.Row, i + 1).Value
Next i
End If
Next r
'lösche die Formeln wieder aus der Tabelle
.Range(.Cells(1, 11), .Cells(iRow, 11)).ClearContents
End With
End Sub

Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Suchfunktion, mehrere Spalten, Zeile kopieren

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchfunktion, mehrere Spalten, Zeile kopieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread