Ausgabe ListBox anpassen
17.08.2015 15:43:55
Sven
Habe ein kleines Anliegen und hoffe es findet sich ein netter Helfer.
Mit viel Hilfe habe ich folgenden Code als Grundlage für meine Suchfunktion zusammengestelt bekommen bzw. übernommen und angepasst.
Ich möchte nun aber das angezeigte Ergebnis verändern.
Aktuell wird in Spalte B:B gesucht und gefunden. Jedoch soll in Spalte B nur gesucht werden, das anzuzeigende Ergebnis steht jeweils in Spalte C daneben.
Spalte C soll dann in die ListBox übernommen werden.
Vielen Dank vorab!
Private Sub Suche_1_Enter_Click()
Dim xSuche, xAdresse, xErste As String
Dim y As Boolean
Dim arr() As Variant
Dim rng As Range
Dim iRowU As Integer
Detailabfrage.Show
Detailabfrage.ListBox1.Clear
xSuche = SSD_Suchen.Suchfeld_1.Value
If xSuche = "" Then
MsgBox "Bitte erst einen Suchbegriff eingeben!", vbExclamation, "Achtung!"
Exit Sub
End If
Set rng = Worksheets("Tabelle2").Range("B:B").Find _
(xSuche, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
With Worksheets("Tabelle2")
xErste = rng.Address(False, False)
y = True
Do Until xAdresse = xErste
ReDim Preserve arr(0 To 1, 0 To iRowU)
arr(0, iRowU) = .Cells(rng.Row, 2)
arr(1, iRowU) = .Cells(rng.Row, 3)
iRowU = iRowU + 1
Set rng = .Cells.FindNext(after:=rng)
xAdresse = rng.Address(False, False)
Loop
xAdresse = ""
xErste = ""
End With
End If
If y = False Then
MsgBox "Der Suchbegriff wurde nicht gefunden!"
Else
Detailabfrage.ListBox1.Column = arr
End If
End Sub
Sven