Auf einem Tabellenblatt, hier Tabelle2, befindet sich eine Liste mit Datensätzen.

 

 

 

 

Auf einem separaten Tabellenblatt, hier Tabelle1, sollen nach Auswahl einer Fahrzeugklasse alle Treffer unterhalb gelistet werden.

 

 

 

 

Der Code im Change-Ereignis der Combobox

 

 

Private Sub ComboBox1_Change()

Dim wks As Worksheet            'Worksheet Tabelle1

Dim rngCell As Range            'Suchzelle

Dim lngZZ As Long               'Zeilenzähler der Zieltabelle ( Tabelle1 )

Dim strAddress As String        'Zelladresse erster Treffer

 

Set wks = Worksheets("Tabelle1")

lngZZ = 7 'Erste Zielzeile der Zieltabelle

 

'Altdaten der vorherigen Abfrage löschen

wks.Range("A7:D" & wks.Cells(Rows.Count, 4).End(xlUp).Row + 2).ClearContents

 

With Worksheets("Tabelle2")

  Set rngCell = .Columns(4).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)

  strAddress = rngCell.Address

  Do

    wks.Cells(lngZZ, 1).Value = rngCell.Offset(0, -3).Value

    wks.Cells(lngZZ, 2).Value = rngCell.Offset(0, -2).Value

    wks.Cells(lngZZ, 3).Value = rngCell.Offset(0, -1).Value

    wks.Cells(lngZZ, 4).Value = rngCell.Value

    lngZZ = lngZZ + 1

  Set rngCell = .Columns(4).FindNext(rngCell)

  Loop While Not rngCell Is Nothing And rngCell.Address <> strAddress

End With

 

End Sub