Mit einem solchen kleinen Makro könnt ihr euch eure eigene kleine Suchmaschine in eine Excel Tabelle einbauen. Erstellt wurde diese Suchfunktion für eine CD Liste. Das Makro gehört in ein Modul!

Option Explicit

Public Sub Instrsuche()
    Dim intwort, intbereich, intergebnis, intgef As Integer
    Dim loletzte As Long

    Range("F2:G10").ClearContents
    intgef = 2
    loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536)
    intwort = InputBox("Was soll gesucht werden?")
    For intbereich = 1 To loletzte
        If InStr(1, Cells(intbereich, 1), intwort, vbTextCompare) Then
            Cells(intgef, 6) = Cells(intbereich, 1)
            intergebnis = intbereich
            Cells(intgef, 7) = intergebnis
            intgef = intgef + 1
        End If
    Next intbereich
End Sub