Zeilen mit Kriterium suchen und in ListBox ausgebe
29.06.2007 18:12:00
Ingo
In meinen Formular möchte ich eine suche über eine TextBox eingabe machen die dann in einer Spalte einer Tabelle gesucht wird, alle Zeilen die dieses Kriterium haben sollen in einer ListBox angezeigt werden.
Kann da jemand helfen?
Denn der nachfolgende Cod gibt mir nur die gefundenen Spalten zurück und ich möchte gern die Spalten A:F im Listenfeld haben.
Private Sub CommandButton1_Click()
Dim vArr As Variant
Dim i As Integer
Dim strT As String
strT = TextBox1.Value
vArr = Worksheets("Tabelle4").Range("D2:D9") '
Anzeige