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.