Listboxeinträge per Suche markieren
19.01.2009 13:19:00
A.Franz
kann mir jemand den Code sagen mit welchem ein Listboxeintrag automatisch (blau) markiert wird, wenn ich einen Suchbegriff in eine TextBox eingebe.Es können mehrere gleiche oder auch nur ein Wert sein der gesucht wird.D.h es müssten mehrere oder auch nur ein Eintrag blau markiert werden..geht das?
Hier der Code mit welchem die ListBox befüllt wird:
Private Sub UserForm_Activate()
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows. _
Count)
ListBox1.RowSource = "A2:J" & LoLetzte
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "1,6cm;2,2cm;2,7cm;2,5cm;2,8cm;1,5cm;2,7cm;2,4cm;2,4cm;"
End Sub
Für jede Hilfe vorab vielen Dank!
Gruß Andre
Anzeige