Hi harry,
im Moment fiel mir nur folgendes Makro ein:
Sub Schaltfläche1_KlickenSieAuf()
Dim Zeile, Zeile1
Dim Spalte, Spalte1
Zeile1 = 1
Zeile = 3
Spalte = 2
Spalte1 = 1
Do While ThisWorkbook.Worksheets(„Tabelle1“).Cells(Zeile, Spalte).Value „“
If InStr(1, ThisWorkbook.Worksheets(„Tabelle1“).Cells(Zeile, Spalte).Value, ThisWorkbook.Worksheets(„Tabelle1“).Cells(3, 4).Value) > 0 Then
ThisWorkbook.Worksheets(„Tabelle2“).Cells(Zeile1, Spalte1).Value = ThisWorkbook.Worksheets(„Tabelle1“).Cells(Zeile, Spalte).Value
Zeile1 = Zeile1 + 1
End If
Zeile = Zeile + 1
Loop
End Sub
Die Liste befindet sich in diesem Beispiel in Tabelle 1 in der 2. Spalte und fängt in der 3. Zeile an.
Der zu suchende Textbestandteil wird in der Zelle D3 eingetragen.
Wenn man nun das Makro ausführt, wird in der ersten Spalte der Tabelle 2 eine Liste erstellt, welche die zu suchende Zeichenkette enthält.
Ich hoffe, daß hilft Dir weiter. Wenn Du noch fragen haben solltest, nur zu 
Gruß Ulrich