Listbox über Textbox-Suche füllen
25.11.2015 12:17:32
Markus
ich brauche wieder einmal Hilfe!
In folgendem Makro wird der Wert der TextBox in den Spalten A bis S gesucht und
ab dem gefundenen Wert ausgegeben!
Ich möchte aber das er mir die gefunden Werte aus jeder Zeile immer ab der 1. Spalte ausgibt. (Sprich, alle Treffer ab Spalte A anzeigt!)
Wie müßte das denn aussehen?
Danke Gruß Markus
Private Sub CommandButton5_Click()
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Zuordnung").Range("A:S")
Me.ListBox1.Clear
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 4
.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 5).Value
.ColumnWidths = "3cm;3cm;5,5cm;5,5cm;3cm;3cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Suchvorgabe nicht gefunden", 48
End If
End With
End Sub