Thema: Gefilterte Werte übernehmen

• Variablendeklaration
• Wenn die Länge des eingegebenen Textes 4 ist...
• Zeilenzähler initialisieren
• Schleife bis zur ersten leeren Zelle
• Wenn der Zellinhalt dem TextBox-Eintrag entspricht...
• Array neu dimensionieren
• Schleife bilden
• Tabellenblattwerte der aktuellen Zeile in das Array einlesen
• Zeilenzähler um 1 hochsetzen
• Dem Listenfeld das Array zuweisen

Private Sub txtValue_Change()
   Dim arr() As Variant
   Dim iRow As Integer, iCol As Integer, iCounter As Integer
   If txtValue.TextLength = 4 Then
      iRow = 2
      Do Until IsEmpty(Cells(iRow, 1))
         If Cells(iRow, 1) = txtValue.Text Then
            iCounter = iCounter + 1
            ReDim Preserve arr(1 To 4, 1 To iCounter)
            For iCol = 1 To 4
               arr(iCol, iCounter) = Cells(iRow, iCol).Value
            Next iCol
         End If
         iRow = iRow + 1
      Loop
      lstValues.Column = arr
   End If
End Sub