Sub Suche()
Dim Bereich As Range
Dim ichsuche As String
Dim i As Long
i = 2
ichsuche = InputBox("Was brauchst du?", "Ersatzteilsuche")
If ichsuche = "" Then
MsgBox ("Junge nix kon ma ned findn")
Exit Sub
End If
With Worksheets("Tabelle2").Range("A:I")
Worksheets("Tabelle1").Range("A10:I1000").Clear
Set Bereich = .Find(ichsuche, LookIn:=xlValues)
If Not Bereich Is Nothing Then
Treffer = Bereich.Address
End If
End With
For Each Bereich In Worksheets("Tabelle2").Range("A:I")
If Bereich = ichsuche Then
Bereich.EntireRow.Copy Worksheets("Tabelle1").Cells(i, 1)
i = i + 1
End If
Next Bereich
End Sub