Sub Moebel()
Dim rücksprungBlatt As Worksheet
Set rücksprungBlatt = ActiveSheet
Dim iRowS As Integer, iRowT As Integer
Dim sWord As String
sWord = InputBox( _
prompt:="Suchbegriff:", _
Default:="Möbel")
If sWord = "" Then Exit Sub
iRowS = 6
iRowT = 8
With Worksheets("12_Moeb")
Do Until IsEmpty(Cells(iRowS, 1))
If Cells(iRowS, 1) = sWord Then
Rows(iRowS).Copy .Rows(iRowT)
iRowT = iRowT + 1
End If
iRowS = iRowS + 1
Loop
.Select
End With
rücksprungBlatt.Activate
End Sub