Hier das Beispielmakro:
Sub DecoFenster()
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:="Deco_Fenster")
If sWord = "" Then Exit Sub
iRowS = 6
iRowT = 8
With Worksheets("6_Deko-Fe")
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
Sheets("6_Deko-Fe").Select
Range("R7:R7").Select
Selection.Copy
Range("R7:R2007").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
rücksprungBlatt.Activate
End Sub
Vielen Dank für eure HilfeHubert