ein Suchbegriff->alle gefundenen Zeilen in Listbox

Hallo,alle Zusammen.
Habe folgende Anweisung zum suchen in einer Exceltabelle nach öffnen einer Userform:
Textbox zum Eingeben eines Suchbegriffes, z.B. "TCB".
Nach klick auf CommandButton2 erfolgt das suchen des Begriffes in der 3.Spalte des Tabellenblattes(sind mehrer hundert Zeilen). Sobald er das erste mal den Begriff gefunden hat, schreibt er den Inhalt der Spalte 2 und 3 aus der gefundenen Zeile komplett in die Listbox. Alles bestens. Falls es aber mehrer Einträge "TCB" gibt, soll er alle Zeilen in die Listbox eintragen.
Das ist mein Problem. Wie muss ich den Code abändern.
Hier das Makro:


Private Sub CommandButton2_Click()
Dim Suchbegriff As Variant
Dim c As Range
Suchbegriff = TextBox1.Text
Set c = Columns(3).Find(Suchbegriff)
If Not c Is Nothing Then
ListBox1.RowSource = Range(Cells(c.Row, 2), Cells(c.Row, 3)).Address
Else
MsgBox Suchbegriff & " wurde nicht gefunden!"
End If
End Sub

Gruß Mario

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() Dim Suchbegriff As Variant Dim c As Range Dim i As Long Dim firstaddress As String Dim Matrix() As String ReDim Matrix(2, 200) Suchbegriff = TextBox1.Value Set c = Columns(3).Find(Suchbegriff) On Error GoTo Fehler firstaddress = c.Address Matrix(0, i) = c.Offset(0, -1).Value Matrix(1, i) = c.Value i = i + 1 Do Set c = Columns(3).FindNext(After:=c) If c.Address = firstaddress Then Exit Do Matrix(0, i) = c.Offset(0, -1).Value Matrix(1, i) = c.Value i = i + 1 Loop ReDim Preserve Matrix(2, i) ListBox1.Column = Matrix Exit Sub Fehler: MsgBox ("Nicht gefunden") End Sub

Private Sub CommandButton2_Click() Dim Suchbegriff As Variant Dim Zelle As Range Dim FundAdr As String Dim iLiBox As Integer Suchbegriff = TextBox1.Text Set Zelle = Columns(3).Find(Suchbegriff) If Not Zelle Is Nothing Then FundAdr = Zelle.Address Do ListBox1.AddItem " " ListBox1.List(iLiBox, 0) = Cells(Zelle.Row, 2) ListBox1.List(iLiBox, 1) = Cells(Zelle.Row, 3) iLiBox = iLiBox + 1 Set Zelle = Range("C:C").FindNext(Zelle) Loop While Not Zelle Is Nothing And Zelle.Address <> FundAdr Else MsgBox Suchbegriff & " wurde nicht gefunden!", _ 64, " Begriff ist nicht vorhanden." End If End Sub

Beliebteste Forumthreads (12 Monate)

ein Suchbegriff->alle gefundenen Zeilen in Listbox

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ein Suchbegriff->alle gefundenen Zeilen in Listbox

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread