Suchfunktion

Sub Instrsuche()
Dim intwort As String, intgef As Integer, wks1 As Worksheet, Zelle As Range
Range("e7:h1000").ClearContents
Set wks1 = ThisWorkbook.Sheets("Teile Übersicht")
intgef = 7
intwort = InputBox("Geben Sie Ersatzteil, Hersteller oder Einbauort ein:")
If intwort = "" Then Exit 

Sub 'Bei Abbruch gibt Inputbox einen Leerstring aus
For Each Zelle In wks1.Range("A3:D" & wks1.UsedRange.Rows.Count)
If InStr(1, Zelle.Value, intwort, vbTextCompare) Then
Cells(intgef, 5) = wks1.Cells(Zelle.Row, 1)
Cells(intgef, 6) = wks1.Cells(Zelle.Row, 2)
Cells(intgef, 7) = wks1.Cells(Zelle.Row, 4)
Cells(intgef, 8) = wks1.Cells(Zelle.Row, 3)
intgef = intgef + 1
End If
Next
End Sub


Nun möchte ich mit einm bestimmten Befehl, z.B. "alles", dass alles an vorhandenen Daten ausgegeben wird. 

Für Eure Hilfe schon mal vielen Dank!

Tuvux