|
Hallo,
ich möchte eine Tabelle in einer Listbox ausgeben, aber dabei sollen nur bestimmte Zeilen ausgegeben werden und zwar diejenigen die man vorher mithilfe von zwei Comboboxen auswählen kann.
Anbei finden ihr meinen Code :
Private Sub Suchen_Click()
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Inserate").Range("A:F")
Me.ListBox1.Clear
Set rngCell = .Find(Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
strFirstAddress = ""
If Not rngCell Is Nothing Then
If ComboBox2.Value = rngCell.Offset(0, -3) Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 6
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, -5).Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, -4).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, -3).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, -2).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 0).Value
.ColumnWidths = "2,5cm;1,5cm;2,5cm;2,5cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address <> strFirstAddress
End If
Else
MsgBox "es konnte kein Eintrag gefunden werden",
End If
End With
End Sub
Über schnelle Antwort würde ich mich sehr freuen.
|