Ich brauche wieder mal Eure Hilfe.
Mit folgendem VBA-Code durchsuche ich in einer Tabelle die Spalte "A" (beginnend ab "A10") nach einem Begriff. Die Fundstellen werden dann in einer Listbox ausgegeben.
Sub Suchen()
Dim lng As Long
Dim i As Integer
i = 0
For lng = 10 To ThisWorkbook.Worksheets("Datenbank").UsedRange.Rows.Count + 1
If InStr(LCase(ThisWorkbook.Worksheets("Datenbank").Cells(lng, 1).Value), LCase(Suchfeld.Value)) _
> 0 Then
Suchbox.AddItem ThisWorkbook.Worksheets("Datenbank").Cells(lng, 1).Value
Suchbox.Column(1, i) = ThisWorkbook.Worksheets("Datenbank").Cells(lng, 2).Value
Suchbox.Column(2, i) = ThisWorkbook.Worksheets("Datenbank").Cells(lng, 10).Value
Suchbox.Column(3, i) = ThisWorkbook.Worksheets("Datenbank").Cells(lng, 1).Row
i = i + 1
Else
End If
Next lng
Suchfeld.Text = ""
Suchfeld.SetFocus
If Suchbox.ListCount = 0 Then
Call Meldung_Suchbegriff_nicht_gefunden
Suchfeld.SetFocus
End If
End Sub
Nun möchte ich den Code so umstellen, dass er nicht in einer Spalte sucht, sondern in einer Zeile.
Z.B. soll er die Zeile "2" durchsuchen, beginnend ab "C2" bis zur letzten benutzten Spalte und mir dann sämtliche Fundstellen in der Listbox ausgibt.
Außerdem soll dann in Spalte 3 der Listbox ("Suchbox.Column(3, i) =...." - siehe oben) nicht die Zeilennummer, sondern die Spaltennummer der Fundstelle angegeben werden.
Leider bekomme ich das nicht hin. :)
Ich hoffe, ihr könnt mir helfen.
Vielen Dank schon mal im Voraus!
Gruß Timo